2 Replies Latest reply on Aug 31, 2009 3:14 PM by cescamilla

    showserverinfo

    Mohammad

      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