Private myTable As New clsLBTabelle
 
Private Sub Feld_DblClick(Index As Integer)
    Feld_MouseDown Index, 2, 1, 1, 1
End Sub
 
Private Sub Feld_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
    myTable.SetCursor Feld(Index).ListIndex
    Feld_Scroll Index
End Sub
 
Private Sub Feld_MouseDown(Index As Integer, Button As Integer, Shift As _
  Integer, X As Single, Y As Single)
    Feld(Index).Enabled = False
    myTable.SetCursor Feld(Index).ListIndex
    Feld(Index).Enabled = True
    If Button = 2 Then
       With myTable
         .AktFeld = Index
         .AktIndex = Feld(Index).ListIndex
         .GetInputBox Feld(Index).ListIndex, Index, Text1
       End With
    End If
End Sub
 
Private Sub Feld_Scroll(Index As Integer)
   If Text1.Visible Then Exit Sub
   myTable.LBScroll Index
End Sub
 
Private Sub Form_Load()
    Dim i As Integer
    Feld(0).Visible = False
    ' Eingabefeld definieren und verbergen
    With Text1
      .Visible = False
      .FontName = "Arial"
      .FontSize = 8
      .BorderStyle = 0
      .Appearance = 0
    End With
 
    ' Fünf Felder hinzufügen
    For i = 1 To 4
       Load Feld(i)
       For n = 1 To 43
       Feld(i).AddItem "Feld" & CStr(i) & "/" & CStr(n)
       Next
       myTable.Add Feld(i), "Feld" & CStr(i)
       myTable.SetCursor (0)
    Next
End Sub
 
Private Sub Text1_Change()
    myTable.ChangeFieldText Text1.Text
End Sub
 
Private Sub Text1_LostFocus()
   Text1.Visible = False
End Sub