Here is my code:

Code:
Case "MODE"     'if someone sets the mode on someone
                    Dim p As Integer
                    For p = 0 To lstUsers.ListCount - 1
                    If lstUsers.Selected(p) = True Then
                    displaychat "** " + from$ + " sets mode " + processParam(processRest(params$)) + " on " + Me.lstUsers.Text + " **" 'display the mode change
                    Else
                    If lstUsers.Selected(p) = False Then
                    displaychat "** " + from$ + " sets mode " + processParam(processRest(params$)) + " on " + processParam(params$) + " **" 'display the mode change
                    End If
                    End If
                    Next
What I'm trying to say is if a user is selected in the lstUsers, then send isplaychat "** " + from$ + " sets mode " + processParam(processRest(params$)) + " on " + Me.lstUsers.Text + " **"

If a user is not selected in lstUsers, then send displaychat "** " + from$ + " sets mode " + processParam(processRest(params$)) + " on " + processParam(params$) + " **"

But it sends the message twice still. I don't know what code to use.