Mohammad

showserverinfo

Discussion created by Mohammad on Aug 28, 2009
Latest reply on Aug 31, 2009 by cescamilla

the syntax is the following:

Option Explicit
Private Sub Command1_click()
On Error GoTo handler
Dim srv As Server
If List1.Text = "" Then
MsgBox "please select a server to open"
Exit Sub
End If
Set srv = servers(List1.Text)
srv.open Text1.Text
showserverinfo srv
Exit Sub
handler:
MsgBox Err.Description
End Sub

when i add those assemblies you mentioned it says Sub or Function is not defined.

 

I wrote it in VB6.

 

and the Showserverinfo  is highlighted.

 

Thanks

Outcomes