'Benötigt wird: eine Picturebox
Private Sub Form_Activate()
 
Dim XPos#, YPos#, i#, Pi#, Rad#, PSW#, PSH#, FS As VbMsgBoxResult
 
Me.WindowState = vbMaximized
Me.Caption = "Diagramm"
DoEvents
FS = MsgBox("Ausgefüllt?", vbQuestion + vbYesNo, Me.Caption)
Me.ScaleMode = vbPixels
Pi = 4 * Atn(1)
With Picture1
  .ScaleMode = vbPixels
  .AutoRedraw = True
  .Move 10, 10, Me.ScaleWidth * 0.8, Me.ScaleHeight * 0.8
  .BackColor = vbWhite
  .Cls
  PSW = .ScaleWidth
  PSH = .ScaleHeight
  Picture1.Line (0, PSH / 2)-Step(PSW, 0), vbBlack
  Rad = PSH * 0.4
  .CurrentX = 0
  .CurrentY = PSH \ 2
  If FS = vbNo Then
    For XPos = 0 To PSW - 1
      YPos = PSH / 2 + Rad * Sin(XPos / (PSW / 3) * 2 * Pi)
      Picture1.Line -(XPos, YPos), vbRed
    Next XPos
  Else
    For XPos = 0 To PSW - 1
      YPos = Rad * Sin(XPos / (PSW / 3) * 2 * Pi)
      Picture1.Line (XPos, PSH \ 2)-Step(0, YPos), vbBlue
    Next XPos
  End If
End With
 
End Sub

Gruss,

Zardoz