こちらをform1に記入
Option Explicit
Private Sub Command1_Click()
Form2.Show 1
End Sub
こちらをform2に記入
Option Explicit
Private Sub Command1_Click()
Unload Me
’DoEventsで OSに制御を一時的に渡すことによりform2の残像を消すことができます。
DoEvents
Call Heavy
End Sub
Public Sub Heavy()
Dim x
Do Until x = 100000
x = x + 1
Debug.Print x
Loop
End Sub
|