Private Sub Hauptmenü_KeyDown(KeyCode As Integer, Shift As Integer)
  Select Case KeyCode
 
 
    Case vbKeyDown
      Hauptmenü.VScroll1.SetFocus
      VScroll1.Value = VScroll1.Value + 100
 
 
 
    Case vbKeyUp
      Hauptmenü.VScroll1.SetFocus
      VScroll1.Value = VScroll1.Value - 100
 
 
 
    Case vbKeyRight
      Hauptmenü.HScroll1.Index
      HScroll1.Value = HScroll1.Value + 100
 
 
    Case vbKeyLeft
      Hauptmenü.HScroll1.SetFocus
      HScroll1.Value = HScroll1.Value - 100
 
 
 
  End Select
End Sub

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD