'Class1.cls
Public Sub func()
　Debug.Print "1"
End Sub
'Class2.cls
Public Sub func()
　Debug.Print "2"
End Sub
'Form1.frm
Sub call_func(Object o)
　o.func
End Sub
Sub Form_Load()
　Dim c1 As New Class1
　Dim c2 As New Class2
　call_func c1
　call_func c2
End Sub
同じメソッド名を持つオブジェクトならどんな継承関係になくてもメソッドを呼べるってC++も同じ仕様だったんだな
http://ideone.com/gdhPl6