[Visual Basic]
 
'Create a new IMClient
Dim MC as new IMSDK.IMClient
 
 
 
'Create a new MCUser
 Public MCUser As New IMSDK.User
 
 
 
'Call the Listen Sub
MC.Listen()
 
 
 
'Now Try to login
MC.BeginLogin(TxtUsername.Text,TxtPassword.Text)
 
 
 
'if username and password is valid then
Private Sub MC_OnLoggedin(ByVal UserObject As IMSDK.User) Handles MC.OnLoggedin
    Debug.WriteLine("Username logged in : " & MCUser.Username & " , " & MCUser.Password)
 
        MCUser = New IMSDK.User
        MCUser = UserObject
        Msgbox("Username is " & MCUser.Username)
 
End Sub
 
 
 
'if username or password is invalid then
Private Sub MC_OnUsernameOrPasswordInvalid(ByVal Username As String, ByVal Password As String) Handles MC.OnUsernameOrPasswordInvalid
  Debug.WriteLine("Username password invalid : " & Username & " , " & Password)
End Sub
 
 
 
 
    Private Sub ChkFT()
 
        For i As Integer = 0 To MCUser.FileTransfers.GetCount - 1
            Try
 
                If MCUser.FileTransfers.Item(i).FileTransferID <> "" Then
                   Dim ft as IMSDK.FileTransfer
                   ft =  MCUser.FileTransfers.Item(i)
                   Msgbox(ft.FileName)
                   Msgbox(ft.FilePath)
                   Msgbox(ft.FileSize)
                   Msgbox(ft.FileTransferID)
                   Msgbox(ft.FriendFileTransferID)
                End If
 
            Catch ex As Exception
                Debug.WriteLine(ex.ToString)
            End Try
 
        Next
    End Sub