帮帮忙吧~~

最小化的可以用
Option Explicit
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 Sub Command1_Click()
SendMessage Me.hwnd, &H32,&H25A, 1  '设置成Ctrl+Z
End Sub

但是托盘的怎么搞?

谢谢楼上..不过...托盘我做好了.....

是热键问题...

谢谢版主.差不多了.