Const BM_SETCHECK = &HF1
Пошлите сообщение BM_SETCHECK для установки состояния переключателя. Это сообщение работает только с кнопками, которые являются флажками (CheckBox) или переключателями (OptionButton). Сообщение может отмечать или не отмечать кнопку. Если кнопка - флажок с тремя состояниями, сообщение может также помещать кнопку в ее третье, недоступное состояние
' Ставим галочку внутри флажка Check1. ' Вы должны создать флажок по имени Check1 ' и кнопку Command1 в окне формы Private Sub Command1_Click() Dim retval As Long 'возвращаемое значение ' Ставим галочку внутри флажка Check1 retval = SendMessage(Check1.hWnd, BM_SETCHECK, ByVal CLng(BST_CHECKED), ByVal CLng(0)) End Sub