窗体问题，说类没有定义

weishao

窗体代码：
'建议窗体对象内的代码只编写与本窗体事件有关的代码，不要使用作用于整个工程的变量及过程函数。
'***********************************************************************************************************
'1. 注释部分为office窗体语句。过程名称和控件名称均不含窗体名。
'2. 而金字塔中，在使用窗体时，过程、事件、控件均需要采用"用窗体名_"的方式处理。如：UserForm_
'3. 若要使用该示例，请将代码粘贴到包含名为 CommandButton1 的命令按钮的窗体的声明变量部分。
'***********************************************************************************************************
'Sub UserForm_Initialize()
'    CommandButton.Caption  = "量化神奇之旅"         
'End Sub

Sub UserForm_Initialize()
    UserForm_CommandButton1.Caption  = "量化神奇之旅"
End Sub

'Sub CommandButton1_Click ()
'    If CommandButton1.Caption = "金字塔--停止" or CommandButton1.Caption  = "量化神奇之旅" Then     
'        CommandButton1.Caption = "金字塔--启动"   
'    Else
'        CommandButton1.Caption = "金字塔--停止"  
'    End If
'End Sub
Sub UserForm_CommandButton3_Click ()
    If UserForm_CommandButton1.Caption = "金字塔--停止" or UserForm_CommandButton1.Caption  = "量化神奇之旅" Then     
        UserForm_CommandButton1.Caption = "金字塔--启动"      
    Else
        UserForm_CommandButton1.Caption = "金字塔--停止"  
    End If        
End Sub

Sub UserForm_Load()
    '窗体启动显示时执行图标设置工作,（见上图中的左上角的窗体图标）
    UserForm.SetTitileIcon("face_doc.ico")
End Sub

Sub UserForm_CommandButton1_Click()
        UserForm_CommandButton2.SetFocus
End Sub

Sub UserForm_CommandButton2_Click()
        UserForm_CommandButton1.SetFocus
End Sub

调用代码如下：
sub testform()
        dim f
        set f = new UserForm
        f.Caption="指定对象的前景色"
end sub