Используя естественно команду LINE:

Private Sub Command1_Click()

    Dim y As Integer

    Form1.ForeColor = &HFF&

    y1 = 0

    x1 = 0

    For x = 0 To 25

    y = x * x

    Form1.Line (x1, y1)-(x, y)

    y1 = y

    x1 = x

    Next x

End Sub



Private Sub Form_Load()

    Form1.ScaleMode = 3

    Form1.Scale (0, 1000)-(100, 0)

End Sub

Единственное, что мы воспользовались командой Scale, чтобы изменить систему координат.