Private Sub Form_Load()
 
Dim i&, XPos!, YPos!
 
Randomize
With Me
  .ScaleMode = vbPixels ' Einheit Pixel
  .BackColor = vbBlack ' Hintergrundfarbe
  .AutoRedraw = True ' Grafik statisch
  For i = 1 To 300
    XPos = Rnd * .ScaleWidth
    YPos = Rnd * .ScaleHeight
    Me.PSet (XPos, YPos), vbYellow ' Punkt setzen
  Next i
End With
Me.Line (10, 15)-(300, 200), vbBlue ' Linie ziehen
 
End Sub

Gruss,

Zardoz