Sub Class_Globals
Private HotSpot1 As Hotspotlib
End Sub
Public Sub Start(AServerName As String, AServerPassword As String)
serverName = AServerName
serverPassword = AServerPassword
Msgbox("1", "")
HotSpot1.tat
Msgbox("2", "")
HotSpot1.batdau(serverName, True, serverPassword)
Msgbox("3", "")
End Sub