Retrieving Nickname

1. Select Project==> Reference ==> Messenger Api Type Library
2.Now but this code into the form load and the other at the top

Private Sub Form_Load() Set objMessenger = New MessengerAPI.Messenger End Sub

Option Explicit Private WithEvents objMessenger As MessengerAPI.Messenger

3. Create a text box and command button
4. In the command button insert the following code and the logged in users nickname will appear in text1

Text1.Text = MessengerAPI.Messenger.MyFriendlyName