Initialize the Session

Private Session As LANSA_ACTIVEX_LIB.ISession


Private Sub ConnectToLansa( _

    ByVal username As String, _

    ByVal password As String))



    ' Create the Session object

    Session = New LANSA_ACTIVEX_LIB.Session


    ' Set the session configuration file

    Session.ConfigFile = "./Session.cfg"


    ' Set the User and Password   

    Session.SetConnectParam("USER", username)

    Session.SetConnectParam("PSPW", password)


    ' Connect to LANSA



      Catch ex As Exception

            MessageBox.Show("Exception : " + ex.Message)

End Try

End Sub