Colored Logic

When developing software that requires a user interface, some of us strive for a Model-View-Controller architecture to ensure ease of change to the UI and data components. Others will couple their business and display logic a little more tightly, using variables and classes to go between the two. And then there are the few (Adam Courtney's colleague included) who use the color of a UI component to determine business logic and program flow ...

If lblClientName.BackColor = RGB(255, 0, 0) Then 'new client
    
    'Setup the client account
    Call SaveNewClientData

    'notify use of success
    If lblClientNum.ForeColor = RGB(0, 0, 153) Then
        MsgBox "Client was created but is pending activation."
    ElseIf lblClientNum.ForeColor = RGB(0, 128, 0) Then
        MsgBox "Client was created and was successfully activated."
    ElseIf lblClientNum.ForeColor = RGB(255, 0, 0) _
            And lblClientNum.Caption = "999999" Then
        MsgBox "There was an error creating the client. " & _
               "Please ensure all required fields were entered."
    End If
    
    'ED: Snip ...
End If