-----------------------------------------------------------------------------------------------
Private Sub Command1_Click()
End
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Option1_Click(Index As Integer)
Label1.ForeColor = vbRed
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Option2_Click()
Label1.ForeColor = vbYellow
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Option3_Click()
Label1.ForeColor = vbGreen
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Option4_Click()
Label1.ForeColor = vbWhite
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Option5_Click()
Label1.ForeColor = vbBlue
End Sub
-----------------------------------------------------------------------------------------------
Private Sub Option6_Click()
Label1.ForeColor = vbBlack
End Sub
----------------------------------------------------------------------------------------------