This did not work :

Private Enum State
Dormant = 1
Listening = 2
Connecting = 3
Connected = 4
End Enum

Sub Status(intState As State)
Select Case State
Case "Dormant"
txtStatus.Text = "Dormant"
txtStatus.BackColor = &HFF00&
Case "Active - Listening"
txtStatus.Text = "Active - Listening"
txtStatus.BackColor = &HFFFF&
Case "Connecting"
txtStatus.Text = "Active - Connecting"
txtStatus.BackColor = &H80FF&
Case "Connected"
txtStatus.Text = "Active - Connected"
txtStatus.BackColor = &HFF&
Case Else
txtStatus.Text = "ERROR"
txtStatus.BackColor = &HFF&
End Sub