With frmDIWASelect.sevSelect(0)
    .Clear
    .LockUpdate True
    .DataMode = Mode_List           'Listmodus    
    .CheckBoxStyle = CHECKBOX_STANDARD
    .ColumnAdd , "Anzeige", 2500
    .ColumnAdd "operator", "Operator", 1500, , , TYPE_COMBOBOX
'    .Columns("operator").ColType = TYPE_COMBOBOX
    .ColumnAdd , "", 900, , , TYPE_COMBOLIST
    .CheckBoxes = True
    .LockUpdate False
    .Refresh
End With

Private Sub sevSelect_FillComboBox(Index As Integer, ByVal nRow As Long, ByVal _
  nCol As Long, oComboBox As sevDataGrid2.EditComboBox)
 
If Index = 0 Then
    Select Case nCol
        Case 1
            With sevSelect(Index)
                .AddItem "gleich = "
                .AddItem "ungleich != "
                .AddItem "größer > "
                .AddItem "größer gleich >= "
                .AddItem "kleiner < "
                .AddItem "kleiner gleich <= "
            End With
    End Select
End If
End Sub

frmDIWASelect.sevSelect(0).AddItem fsNodeKlick & vbTab & ""