Beispiel:
Private Sub CommandButton1_Click()
'Das 3. Element der Liste soll am Beginn des Listbox-Fensterausschnitts stehen
ListBox1.TopIndex = 2
ListBox1.BoundColumn = 2
Label1.Caption = ListBox1.TopIndex
End Sub