Change MSN Messenger Name

'Make sure u add the Messenger Type Library by going to refreneces or if your on vb3,vb4 go to tools then refreneces on vb5,vb6 go to project then refrences and add messenger type library
'Then double click on the form and go to Declerations and put the following code in
Dim MsN As New MsgrObject
'Now put 1 text area on the form and 1 Command Button and put the following Code
Private Sub Command1_Click()
MsN.Services(0).FriendlyName = Text1.Text
MsN.LocalState = MSTATE_INVISIBLE
MsN.LocalState = MSTATE_ONLINE
End Sub
'Thank you Hope you enjoy:)