Shoutbox

code:

---

Dim blank1set, blank2set, blank3set, blank4set As Boolean
Public Sub Blue_click()
If blank1set = True Then
    If blank2set = True Then
        If blank3set = True Then
            blank4.BackColor = &HFF0000
            blank4set = True
        Else
            blank3.BackColor = &HFF0000
            blank3set = True
        End If
    Else
        blank2.BackColor = &HFF0000
        blank2set = True
    End If
Else
    blank1.BackColor = &HFF0000
    blank1set = True
End If

End Sub

---