Private Sub Form_Load()
  Dim X1&, X2&, Y1&, Y2&, Farbe&
  Picture1.AutoRedraw = True
  Picture1.DrawWidth = 10
 
  X1 = 0
  X2 = Picture1.ScaleWidth
  Y1 = 5 * Screen.TwipsPerPixelY
  Y2 = 5 * Screen.TwipsPerPixelY
  Farbe = (&HFF0000)
  Picture1.Line (X1, Y1)-(X2, Y2), Farbe
 
  X1 = 0
  X2 = Picture1.ScaleWidth
  Y1 = 15 * Screen.TwipsPerPixelY
  Y2 = 15 * Screen.TwipsPerPixelY
  Farbe = (&HFF00)
  Picture1.Line (X1, Y1)-(X2, Y2), Farbe
 
  X1 = 0
  X2 = Picture1.ScaleWidth
  Y1 = 25 * Screen.TwipsPerPixelY
  Y2 = 25 * Screen.TwipsPerPixelY
  Farbe = (&HFF)
  Picture1.Line (X1, Y1)-(X2, Y2), Farbe
End Sub