Set Option Button And Check Box Style Property At Runtime

If you ever tried to set Option Button style property at runtime, you got "can't assign to read-only property" error message. To solve this problem you can use this code, that works also with Check Box.


Add 1 Option Button and 2 Command Buttons to your form.

Module Code

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const GWL_STYLE = (-16)
Public Const BS_PUSHLIKE = &H1000&

Public Sub SetGraphicStyle(StyleButton As Control, Flag As Boolean)
    Dim curstyle As Long
    Dim newstyle As Long
'exit this sub if the control is not Option Button or Check Box
If Not TypeOf StyleButton Is OptionButton And _
    Not TypeOf StyleButton Is CheckBox Then Exit Sub
    curstyle = GetWindowLong(StyleButton.hwnd, GWL_STYLE)
    If Flag Then
        curstyle = curstyle Or BS_PUSHLIKE
        curstyle = curstyle And (Not BS_PUSHLIKE)
    End If
    newstyle = SetWindowLong(StyleButton.hwnd, GWL_STYLE, curstyle)
End Sub

Form Code

Private Sub Command1_Click()
  Call SetGraphicStyle(Option1, True)
End Sub

Private Sub Command2_Click()
 Call SetGraphicStyle(Option1, False)
End Sub

Go Back