GBKEE

¦^´_ 3# dechiuan999
ªí³æ¼Ò²Õ¤¤¥iª½±µ«ü©w³oªí³æ±±¨î¶µª«¥ó

1. Private Sub UserForm_Initialize()   
   
2.     Set mycls1 = New mClass1
   
3.     With mycls1
   
4.         Set .Txt1 = TextBox1
   
5.         Set .Cmd1 =CommandButton1
   
6.      '   Set .Txt1 = Me.Controls("TextBox1")
   
7.       '  Set .Cmd1 = Me.Controls("CommandButton1")
   
8.         .mTxt1 = "test"
   
9.     End With
   
10. End Sub

½Æ»s¥N½X