Msn Api

[|†§ÄM ™ © ²ºº³†]

I need help on scrollers for a windows messenger addon

Dim WithEvents MSN As MsgrObject
Dim User As IMsgrUser
Private MSNAPI As New MessengerAPI.Messenger
 
Private Sub Command1_Click()
On Error Resume Next
If Option1.Value = True Then
For i = Index To Messenger.IMWindows.Count
Messenger.IMWindows.Item(i).SendText Text1.Text
End If
Next
End Sub

[LITHIA]

sorry i cant help you, but i saw by your method of posting is way un-nessecary.

All you needed to do is write [vbcode ] (without the space

and close it off with [/vbcode ] (without the space)

it does all the colouring for your code iteslf and more efficiently

so it looks like this

Dim WithEvents MSN As MsgrObject
Dim User As IMsgrUser
Private MSNAPI As New MessengerAPI.Messenger
 
 
Private Sub Command1_Click()
On Error Resume Next
If Option1.Value = True Then
For i = Index To Messenger.IMWindows.Count
Messenger.IMWindows.Item(i).SendText Text1.Text 
Next
End If
End Sub