Option Explicit
 
' zunächst die benötigten API-Deklarationen
Private Declare Function ShowScrollBar Lib "user32" _
  (ByVal hwnd As Long, ByVal wBar As Long, _
  ByVal bShow As Long) As Long
 
Private Const SB_VERT = 1
 
Private Sub Form_Load()
  Dim i As Long
 
  For i = 1 To 100
    List1.AddItem "Eintrag " & CStr(i)
  Next i
 
  ' Scrollbalken ausblenden
  ShowScrollBar List1.hwnd, SB_VERT, False
End Sub
 
Private Sub List1_Scroll()
  ' Scrollbalken ggf. ausblenden
  ShowScrollBar List1.hwnd, SB_VERT, False
End Sub
 
Private Sub Command1_Click()
  ' nach oben scrollen
  With List1
    If .TopIndex > 0 Then .TopIndex = .TopIndex - 1
  End With
End Sub
 
Private Sub Command2_Click()
  ' nach unten scrollen
  With List1
    .TopIndex = .TopIndex + 1
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de