在VB中制作VC中具有PUSHLIKE风格的复选框

'Code By 魑魅魍魉
'mailto:[e-mail]

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Sub Form_Load()
Op.Value = True
Ch.Value = 1
SetWindowLong Command1.hwnd, -16, &H50008000
SetWindowLong Ch.hwnd, -16, GetWindowLong(Ch.hwnd, -16) + &H1000
SetWindowLong List1.hwnd, -20, &H105
SetWindowLong Text1.hwnd, -20, &H105
SetWindowLong Op.hwnd, -16, GetWindowLong(Op.hwnd, -16) + &H1000
SetWindowLong Op1.hwnd, -16, GetWindowLong(Op1.hwnd, -16) + &H1000
End Sub

效果如下：