Commandbutton.Name = cmdPoint
With = 195
Height = 195
 
VScrollbar.Width = 195
HScrollbar.Height = 195
 
Ein günstiger Wert für die Textbox = Width = 2265 und Height = 217, aber darauf _
  kommen wir noch zurück, wir brauchen aber diese Werte um eine Tabelle zu _
  creieren, die 255 Spalten und 65000 Zeilen haben soll (sagen Dir diese Werte _
  was?)
 
Die Picturebox nennen wir: Background.
 
Private Sub UserControl_Initialize()
   background.Width = 255 * CLng(2265)
   background.Height = CLng(65000) * 217
End Sub
 
Private Sub UserControl_Resize()
   VScroll1.Left = UserControl.ScaleWidth - VScroll1.Width
   VScroll1.Top = 0
   VScroll1.Height = UserControl.ScaleHeight - VScroll1.Width
 
   HScroll1.Top = UserControl.ScaleHeight - HScroll1.Height
   HScroll1.Left = 0
   HScroll1.Width = UserControl.ScaleWidth - HScroll1.Height
 
   cmdPoint.Left = UserControl.ScaleWidth - cmdPoint.Width
   cmdPoint.Top = UserControl.ScaleHeight - cmdPoint.Width
 
   background.Top = 0
   background.Height = 0
End Sub