Флажки - это такой же объект как кнопка, текстовое поле, метка..., и на этом шаге я научу тебя ими пользоваться. Он выглядит примерно так: .Ну что впечатляет? Отлично! Тогда войди в VB(как всегда Standart EXE), на форму кинь 1 флажок, и наверное хорош. Теперь сделаем программу, чтоб при убирании или ставке флажка комп выводил сообщение о состоянии флажка. Ну, короче смотри и запоминай:

Private Sub Check1_Click() 'При нажатии на флажок: 
 'О свойстве Value, это свойство определяет стоит флажок или нет, если Value равен 1 то он стоит, если 0 то он убран 
 If Check1.Value = 0 Then 'Так вот, если свойство Value равно 0(флажок убран) то: 
 MsgBox "Флажок убран" 'Выскакивает ошибка с сообщением, что флажок убран 
 End If 
 If Check1.Value = 1 Then 'А если свойство Value равно 1(флажок поставлен) то: 
 MsgBox "Флажок поставлен" 'Выскакивает ошибка с сообщением, что флажок поставлен 
 End If 
 End Sub 
 

А с переключателями такая же петрушка!

Переключатель тоже объект, и у него тоже есть свойство Value, и оно почти также работает. Флажки выглядят так: . В предыдущий проект добавим 2 переключателя, у первого переключателя свойство Caption сделай 1, а у второй 2.Теперь о свойстве Value - если у флажков там можно ставить 0 или 1,а у переключателя True или False. Не помню, говорил я о True и False, но на всякий случай скажу. True - переводится как Истина, это означает что у переключателя черная пипка будет поставлена, а False - это Ложь, если это свойство будет стоять, то пипки не будет. Так вот, сделаем программу, у которой при выборе переключателя 1 выскакивает ошибка о его выборе, и так же со вторым.

Private Sub Option1_Click() 'При нажатии на переключатель 1: 
 If Option1.Value = True Then 'Если у переключателя 1 стоит черная пипка то: 
 MsgBox "1" 'Выскакивает ошибка с надписью 1 
 End If 

 Private Sub Option2_Click() 'При нажатии на переключатель 2: 
 If Option2.Value = True Then 'Если у переключателя 2 стоит черная пипка то: 
 MsgBox "2" 'Выскакивает ошибка с надписью 2 
 End If

Исходник можешь скачать отсюда