Code:
Private Sub Command1_Click() x = Rnd() * 11000 y = Rnd() * 11000 Form2.Left = x * Rnd() Form2.Top = y * Rnd() secStop = Timer + 0.1 Do Form2.Show Loop Until Timer > secStop End Sub
so made a little cleanup in the code.
tho i can find a way to implement
Code:
Dim tfrm As New Form2 tfrm.Show
Leave a comment: