[Visual Basic]

    Private Sub cmbStatus_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbStatus.SelectedIndexChanged
        IMC.BeginSetUserStatus(cmbStatus.SelectedIndex)
    End Sub

[Visual Basic]

    'User Status Changed
    Delegate Sub DelegateUserStatusChanged(ByVal UserStatus As MessengerYouLike.IMSDK.IMClient.Status)
    Private Sub IMC_OnUserStatusChanged(ByVal UserStatus As MessengerYouLike.IMSDK.IMClient.Status) Handles IMC.OnUserStatusChanged

        If lblCusername.InvokeRequired Then
            Dim oDel As DelegateUserStatusChanged = New DelegateUserStatusChanged(AddressOf IMC_OnUserStatusChanged)
            Me.BeginInvoke(oDel, New Object() {UserStatus})
        Else
            lblCusername.Text = IMCUser.Username & " ( " & UserStatus.ToString() & " )"
        End If

    End Sub

[Visual Basic]

    Private Sub IMC_OnFriendStatusChanged(ByVal FriendUsername As String, ByVal FriendStatus As MessengerYouLike.IMSDK.IMClient.Status) Handles IMC.OnFriendStatusChanged
      Debug.WriteLine("Friend " & FriendUsername & " Status is " & FriendStatus.ToString)
    End Sub