Private Sub Command1_Click() Scale (-20, 20) - (20, -20) Line (0, 20)-(0, -20) Line (-20, 0)-(20, 0) Dim x, y For x = -20 To 20 Step 0.1 y = 10 * Sin(x) Line (x, 0)-(x, y) Next End Sub