Private Sub Form_Load()
  ' Auflösung abfragen
  If Screen.Width / Screen.TwipsPerPixelX > 1024 Then
    Me.Move 0, 0, 1024 * Screen.TwipsPerPixelX, 768 * Screen.TwipsPerPixelY
  End If
End Sub

Private Sub Form_Resize()
  If Me.WindowState <> vbMinimized Then
    ' ListBox -> voll Breite der Form
    List1.Width = Me.ScaleWidth - (List1.Left * 2)
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de