添加2个按钮，点击command2按钮的时候，卸载command1按钮

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,ByVal wMsg As Long,ByVal wParam As Long,lParam As Any) As Long
Private Const WM_CLOSE = &H10

Private Sub Command2_Click()SendMessage Command1.hwnd,WM_CLOSE,0End Sub