帮帮忙吧~~

最小化的可以用
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

但是托盘的怎么搞?

http://www.yesky.com/20011024/202037.shtml

参考一下。

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

是热键问题...

http://blog.csdn.net/griefforyou/archive/2004/07/12/39417.aspx

谢谢版主.差不多了.