code:Private WithEvents MSN As Messenger Private Sub Form_Load() Set MSN = New Messenger End Sub
code:msgbox MSN.MyFreindlyName