Option Explicit
 
Private Sub Command1_Click()
    Dim x As Single
    Dim y As Single
    Const pi = 3.1415926
 
    'Koordinatenursprung in Formmitte, nicht linke, obere Ecke
    Me.Scale (-2 * pi, 2)-(2 * pi, -2)
 
    'X-Achse
    Me.Line (-2 * pi, 0)-(2 * pi, 0), RGB(0, 0, 255)
    'Y-Achse
    Me.Line (0, 2)-(0, -2), RGB(0, 0, 255)
 
    'Sinuskurve über 2 Perioden
    For x = -2 * pi To 2 * pi Step pi / 100
        y = Sin(x)
        Debug.Print x, y
        Me.PSet (x, y), RGB(255, 0, 0)
    Next x
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1