请问如何判断控件是什么类型？

Question

if TypeOf Text1 Is MSHFlexGrid then
  msgbox "yes"
else
  msgbox "no"
end if

Answer 1

'*************************************************************
'* 名称：InitForm
'* 用途：初始化屏幕及控件为淡黄色
'* 用法：InitForm(窗体名)
'*************************************************************
Public Sub InitForm(F As Form)
Dim ctrL As Control
    For Each ctrL In F.Controls
        If TypeOf ctrL Is Label Then
            ctrL.BackColor = RGB(250, 250, 210)
        ElseIf TypeOf ctrL Is TextBox Then
            ctrL.BackColor = RGB(250, 250, 210)
            ctrL.Text = ""
        ElseIf TypeOf ctrL Is ComboBox Then
            ctrL.BackColor = RGB(250, 250, 210)
            ctrL.Text = ""
        ElseIf TypeOf ctrL Is PictureBox Then
            ctrL.BackColor = RGB(250, 250, 210)
        ElseIf TypeOf ctrL Is DataGrid Then
            ctrL.BackColor = RGB(250, 250, 210)
        ElseIf TypeOf ctrL Is Frame Then
            ctrL.BackColor = RGB(250, 250, 210)
        End If
    Next
End Sub