Private Sub Form_Load() Dim c As New VisualCronAPI_Client Dim s As VisualCronAPI_Server Dim conn As New Connection conn.ConnectionType = ConnectionT_Local Set s = c.Connect(conn, True) MsgBox s.InSync End Sub