sample vb color

Private Sub Stop_Click()
Shape1.BackStyle = 1
Shape1.BackColor = &HFF&
Label1.Caption = "Please Stop"
End Sub

Private Sub Go_Click()
Shape1.BackStyle = 1
Shape1.BackColor = &HFF00&
Label1.Caption = "you can go now..."
End Sub

Private Sub End_Click()
MsgBox ("This will end the sytem")
End Sub