Back to .Net Form

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    rs = New RemoteSQLCe
     rs.User_Name = "Evaluation"
     rs.User_Licence = 12345678
     If rs.Initialise <> 0 Then
      MsgBox(rs.Error_Message)
    Else
      Enable_Controls(False)
    End If
  End Sub