Specifications

OLE reference
144
Glink: API reference manual Gallagher & Robertson
' New Glink
Private Sub Command1_Click()
StartNewGlink
End Sub
Private Sub Command2_Click()
Dim Name As String
Name = List1.Text
If Name = "" Then
MsgBox ("You must select a Glink from the list first")
Else
ConnectToRunningGlink (Name)
End If
End Sub
' Refresh list
Private Sub Command3_Click()
List1.Clear
Set gl = NextGlink("", True)
If Not gl Is Nothing Then
Set gl = Nothing
End If
End Sub