如何才能取得表单上的控件的TYPE？（比较急）

Question

dim ctl as Object
For Each ctl In Form1.Controls
    If TypeOf ctl Is TextBox Then
       ...
    ElseIf TypeOf ctl Is PictureBox Then
       ...
    ElseIf TypeOf ctl Is ComboBox Then
    ...Next

Answer 1

'    Purpose:
'     Author:吴文智
'       Date:2001-11-06
'Description:要试用本例请在窗体中填加一个按钮及其它用来测试的控件
'            然后在代码窗体中粘贴如下代码
'            Good luck!Private Sub Command1_Click()
    Dim ctlEach As Control
    
    For Each ctlEach In Me.Controls
        MsgBox TypeName(ctlEach)
    Next
End Sub