Используя естественно команду 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, чтобы изменить систему координат.