Код:
Public Sub Command1_Click()
Delay (1) 'или Sleeping (5)
Command2_Click
Form1.Command2_Click
End Sub
Public Sub Command2_Click()
Delay (1)
Как остановить такой процесс, который я замутил?
- Код: Выделить всё
Command1_Click
Form1.Command1_Click
End Sub
Function Delay(Pause As Single)
Dim Start As Single
Start = Timer
Do While Timer < Start + Pause
DoEvents
Loop
End Function
Происходит переключение через секунду.
Перенес даже на другую форму. Думаю Unload Form2 сделаю и процесс отановится, но форма выгружается, а процесс идет.
