如何确定对象的类型

Question

下面是我的一个函数伪代码，需要根据传入参数的类型来决定作不同的处理
请高手给出vb的实现方式
在线等候
谢先sub Sub1(obj as Object)  if obj is a instance of Class1 then
     doClass1Process
  elseif obj is a instance of Class2 then
     doClass2Process
  end if
end sub

Answer 1

Option ExplicitPrivate Sub Form_Load()
Dim c1 As New Class1
Dim c2 As New Class2
a c1
a c2
End SubSub a(o)
If TypeOf o Is Class1 Then
    MsgBox "class1"
ElseIf TypeOf o Is Class2 Then
    MsgBox "class2"
End If
End Sub