Multiple Sending Problems

[DigiRev]

Try this:

Case "MODE"     'Someone set mode on someone else

    Dim p As Integer
    
    'If there is at least one selected user, then...
    If lstUsers.SelCount > 0 Then
        
        'Loop through all users in list
        For p = 0 To lstUsers.ListCount - 1
            
            If lstUsers.Selected(p) Then
                displaychat "** " + From$ + " sets mode " + processParam(processRest(params$)) + " on " + Me.lstUsers.Text + " **" 'display the mode change
            End If
        
        Next p
    
    Else
        'No selected users
        displaychat "** " + From$ + " sets mode " + processParam(processRest(params$)) + " on " + processParam(params$) + " **" 'display the mode change
    End If

Also, you should get in the habbit of indenting and spacing out your code. See how much easier that is to read?

[Blackbelt12]

Alright I will. And thanks a lot DigiRev, it worked.

[DigiRev]

You're welcome.