[Visual Basic]
    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        'try to login
        IMC.BeginLogin(txtUsername.Text, txtpassword.Text)
    End Sub

[Visual Basic]

    'User Login Incorrect
    Private Sub IMC_OnUsernameOrPasswordInvalid(ByVal Username As String, ByVal Password As String) Handles IMC.OnUsernameOrPasswordInvalid
        Debug.WriteLine("Username or Password Incorrect")
    End Sub

[Visual Basic]


    Delegate Function DlgNewFri(ByVal username As String, ByVal message As String) As Boolean
    Private Sub IMC_OnFriendAskingPrimssion(ByVal FriendUsername As String, ByVal Message As String) Handles IMC.OnFriendAskingPrimssion
        Dim NewFriDlg As New DlgNewFri(AddressOf Chk_Fri)
        NewFriDlg.BeginInvoke(FriendUsername, Message, Nothing, Nothing)
    End Sub

    Private Function Chk_Fri(ByVal username As String, ByVal message As String) As Boolean
        Dim frm As New FrmNewFriend
        frm.NewFriendLBL.Text = username & " is asking for primssion"
        frm.NewFriendmessageLBL.Text = "Message from Friend"
        frm.NewFriendTB.Text = message
        frm.ShowDialog()
        If frm.DialogResult = Windows.Forms.DialogResult.OK Then
            IMC.BeginFriendAuthorizationAccepted(username)
        Else
            IMC.BeginFriendAuthorizationDenied(username, frm.NewFriendTB.Text)
        End If
    End Function





    'Offline Message Received
    Dim COfflineMsg As String = String.Empty
    Private Sub IMC_OnOfflineMessageReceived(ByVal FriendUsername As String, ByVal OfflineMessage As String, ByVal MsgDateTime As Date, ByVal CurrentMessageIndex As Integer, ByVal TotalMessages As Integer) Handles IMC.OnOfflineMessageReceived
        COfflineMsg = FriendUsername & vbCrLf & OfflineMessage & vbCrLf & MsgDateTime & vbCrLf & vbCrLf & COfflineMsg
        If CurrentMessageIndex = TotalMessages Then
            Debug.WriteLine(COfflineMsg)
            COfflineMsg = String.Empty
        End If
    End Sub





    'User Logged in Sucessfully
    Private Sub IMC_OnLoggedin(ByVal UserObject As MessengerYouLike.IMSDK.User) Handles IMC.OnLoggedin
        'Set the UserObject
        IMCUser = New MessengerYouLike.IMSDK.User
        IMCUser = UserObject
    End Sub





    'User is Blocked by admin
    Private Sub IMC_OnUserBlockByAdmin(ByVal Username As String, ByVal BlockedMessage As String) Handles IMC.OnUserBlockByAdmin
        Debug.WriteLine(Username & " is blocked by administrator with a message " & vbCrLf & BlockedMessage)
    End Sub




    'Friend Online
    Private Sub IMC_OnFriendOnline(ByVal FriendUsername As String) Handles IMC.OnFriendOnline
      Debug.WriteLine("Friend :" & FriendUsername & " is online")
    End Sub