Private Sub Command1_Click()
Picture1.Cls
Picture1.Scale (-20, 20)-(20, -20)
Picture1.DrawWidth = 1
Picture1.Line (-20, 0)-(20, 0), RGB(0, 0, 255)
Picture1.Line (0, 20)-(0, -20), RGB(0, 0, 255)
For i = -15 To 15 Step 5
Picture1.Line (i, 0)-(i, 0.5), RGB(0, 0, 255)
Picture1.Line (0, i)-(0.5, i), RGB(0, 0, 255)
Next i
End Sub
Private Sub Command2_Click()
Picture1.DrawWidth = 2
k = Val(Text1.Text)
b = Val(Text2.Text)
For x = -15 To 15 Step 0.001
Picture1.PSet (x, k * x + b), RGB(0, 0, 255)
Next x
End Sub