Option Explicit
 
Private Sub Command1_Click()
Dim i As Integer
With sev
.Clear True
.DataMode = Mode_List
.ColumnAdd "Fix", "Fix", 2000
.ColumnAdd "Spalte1", "Spalte1", 2000
.FixedCol = True
.FixedColCount = 1
.RowHeightMax = 200
.RowHeight = 30
For i = 1 To 15
.AddItem (Str(i))
Next i
End With
End Sub
 
Private Sub sev_FixedColClick(ByVal nRow As Long, ByVal nCol As Long, Button As _
  Integer)
Debug.Print nRow
End Sub