jackyq

New ¥Î¨Ó²£¥Í¦h­Ó¹ê¨Ò

Sub QX9650()

Load UserForm1
UserForm1.Caption = "Form_1"
UserForm1.Show 0
tt = tt + 30: UserForm1.Top = tt
MsgBox "Load Form x1 -> Form count " & UserForms.Count

Load UserForm1
UserForm1.Caption = "Form_2"
UserForm1.Show 0
tt = tt + 30: UserForm1.Top = tt
MsgBox "Load Form x2  -> Form count " & UserForms.Count

Load UserForm1
UserForm1.Caption = "Form_3"
UserForm1.Show 0
tt = tt + 30: UserForm1.Top = tt
MsgBox "Load Form x3  -> Form count " & UserForms.Count

Set F1 = New UserForm1
F1.Caption = "Form_111"
F1.Show 0
tt = tt + 30: F1.Top = tt
MsgBox "New Form x1-> Form count " & UserForms.Count

Set F2 = New UserForm1
F2.Caption = "Form_222"
F2.Show 0
tt = tt + 30: F2.Top = tt
MsgBox "New Form x2 -> Form count " & UserForms.Count

Set F3 = New UserForm1
F3.Caption = "Form_333"
F3.Show 0
tt = tt + 30: F3.Top = tt
MsgBox "New Form x3 -> Form count " & UserForms.Count

End

End Sub

jackyq

Set AForm = Nothing¡A¦ü¥Gµøµ¡ÁÙ¦b
¦]¬°µøµ¡ªº¥»Åé VB ÁÙ°½°½ºw«rµÛ¥L
©Ò¥H¤£·|³QÄÀ©ñ