Article ID: 190460
Article Last Modified on 3/3/2005
Public Sub Test()
End Sub
Implements Class2
Private Sub Class2_Test()
MsgBox "Testing the Server"
End Sub
Private Sub Form_Load()
Dim x As Server.Class2
Set x = New Server.Class1
TestMethod x
End Sub
Private Sub TestMethod (x As Server.Class2)
x.Test
End Sub
Public Sub Test2()
End Sub
Private Sub Class2_Test2()
End Sub
Additional query words: kbdss kbDSupport kbVBp kbVBp600 kbCompiler
Keywords: kbprb kbcompiler KB190460