Private Sub Check1_Click(Index As Integer)
Dim new_style As Long
Dim i As Integer

    For i = 1 To NumStyles
        If Check1(i).Value = vbChecked Then _
            new_style = new_style Or StyleValue(i)
    Next i

    SetWindowLong hwnd, GWL_EXSTYLE, new_style
    SetWindowPos hwnd, 0, 0, 0, 0, 0, _
        SWP_FRAMECHANGED Or SWP_NOMOVE Or _
        SWP_NOZORDER Or SWP_NOSIZE
    Refresh
End Sub