Private Enum State
dormant = 1
Listening = 2
Connecting = 3
Connected = 4
End Enum
Private Sub Status(intState As State) '(1)
Select Case intState '(2)
Case dormant '(3)
txtstatus.Text = "Dormant"
txtstatus.BackColor = &HFF00&
Case 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 Select '(4)
End Sub
Private Sub Command1_Click()
Status dormant
End Sub