' Controls: 1 * Picturebox
Private Sub Form_Activate()
 
Dim i!, j!, Pi!
 
Pi = 4 * Atn(1)
With Picture1
  .ScaleMode = vbPixels
  .AutoRedraw = True
  .BackColor = vbBlack
  For i = 0 To .ScaleWidth - 1 Step 0.1
    j = .ScaleHeight / 2 + .ScaleHeight * 0.4 * Sin(2 * 2 * Pi / (.ScaleWidth - _
      1) * i)
    Picture1.PSet (i, j), vbWhite
    Picture1.Refresh
  Next i
End With
 
End Sub

Gruss,

Zardoz