Msn Api

I need help on scrollers for a windows messenger addon

VB Code:

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

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

VB Code:

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