Private Sub Form_Activate()
 
  ' Variablen dimensionieren
  Dim XPos#, YPos#, i#, Pi#, Rad#, PSW#, PSH#
  Dim FS As Boolean
 
  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.9, Me.ScaleHeight * 0.9
 
     ' erstmal die Tafel wischen
     .Cls
     .BackColor = vbWhite
 
     ' x-Achse zeichnen
     PSH = .ScaleHeight
     PSW = .ScaleWidth
     Picture1.Line (0, PSH / 2)-Step(PSW, 0), vbBlack
     Rad = PSH * 0.4
 
     ' Startposition
     .CurrentX = 0
     .CurrentY = PSH \ 2
  End With
 
  If FS Then
    ' Funktion zeichnen
    For XPos = 0 To PSW - 1
      YPos = PSH / 2 + Rad * Sin(XPos / (PSW / 3) * 2 * Pi)
      Picture1.Line -(XPos, YPos), vbRed
    Next XPos
  Else
    ' Funktion gefüllt zeichnen
    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 Sub