|
Contents | Previous | Next | Subchapters |
| Syntax |
status = OMServer.Open |
| See Also | comclose , and comtimeout |
1
if a connection was successfully established.
Public OM As New OMServer
Sub Main()
Dim status As Integer
status = OM.Open
If status = 1 Then
MsgBox ("Connection to O-Matrix established")
Else
MsgBox ("Unable to establish connection to O-Matrix")
End If
End Sub
Press the F5 key and your application will post a
dialog displaying the connection status.