adding to keypress code

How to do that when you press the "space" key, the process of drawing the graphics stops, and when you press the "space" again, continue drawing?

'на Form1 создаём кнопки cmdStart, cmdExit и 'графическое окно g Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load() g.BackColor = RGB(250, 250, 250) End Sub Private Sub cmdStart_Click() 'задание масштаба g.Scale (-10.6, 2.1)-(10.6, -2.1) 'ось Х g.Line (-11, 0)-(11, 0) For i = -10 To 10 g.Line (i, 0)-(i, -0.05), vbBlack 'шкала оси Next i For i = -10 To 10 'точки цвета фона задают начало для отображения координат шкалы g.PSet (i - 0.35, -0.05), g.BackColor g.Print i Next i 'ось Y g.Line (0, 3)-(0, -3) For j = -10 To 10 g.Line (0, j)-(0.3, j) Next j For j = -2 To 2 g.PSet (0.4, j + 0.08), g.BackColor If j <> 0 Then 'исключаем отображение координаты "0" g.Print j End If Next j 'построение графика функции For sngX = -10 To 10 Step 0.01 g.PSet (sngX, Cos(sngX)), vbRed Sleep 1 Next sngX End Sub Private Sub cmdClean_Click() g.Cls 'очистить окно g End Sub Private Sub cmdExit_Click() End 'выход из программы End Sub