MSN messenger...marquee?

[chenko]

add the msn messenger reference and change the "friendlyname" .... thats all

[nishantp]

when i do

Dim iMSN As New MsgrObject
iMSN.LocalFriendlyName = "Nishant"

it says that LocalFriendlyName is read only and cant be changed...which makes like no sense...

[Danial]

Hi Nishantp,
Put this in a class module

Option Explicit
Dim msnObj As New MsgrObject
 
 
Public Property Let FriendlyName(ByVal Value As String)
msnObj.Services.PrimaryService.FriendlyName = Value
End Property

put the following in a form

Option Explicit
dim i as Integer
Private Sub Command1_Click()
Dim myMsn As New Class1
 
myMsn.FriendlyName = "Hello there!!"
 
End Sub

Want a marquee !! put a textbox and an timer on the form

Private Sub Timer1_Timer()
Msg = " This might look cool to you, but its damn annoying to everyone :-D, specially to the one you are chatting !!!"
Text1.Text = Mid(Msg, i, Len(Msg))
 
If i > Len(Msg) Then
    i = 1
Else
    i = i + 1
End If
 
If Text1.Text = "" Then Exit Sub
Msn.FriendlyName = Text1.Text
End Sub

Have fun