回复：自绘制控件集合

'Form1，添加Command1(Name=Command1,Style=Standard(如果设置成Graphics，你就会知道VB的Graphics属性是怎么回事))
Private Sub Form_Load()
 Call PreSubclassWindow(Command1.hwnd)
 OldWindowProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf NewWindowProc)
End Sub