Private Sub Form_Activate()
 
Dim XPos&, YPos&, Pi!, SW!, SH!
 
Pi = Atn(1) * 4
With Picture1
  .ScaleMode = vbPixels 'Einheit Pixel
  .BackColor = vbBlack 'Hintergrundfarbe
  .AutoRedraw = True 'Statisches Bild
  SW = .ScaleWidth 'Bildbreite
  SH = .ScaleHeight 'Bildhöhe
  For XPos = 0 To SW - 1
    YPos = SH / 2 + 40 * Sin(3 * 2 * Pi / SW * XPos)
    Picture1.PSet (XPos, YPos), vbYellow
  Next XPos
End With
 
End Sub

Gruss,

Zardoz