给最小化按钮写代码

[fongzl]

请问给最小化按钮添加操作的函数是什么？
最小化就是设置windowstate是吧

另外，还有一个问题
qq中用CTR+ENTER来发送
但是我做的时候却有一个问题
我用一下代码监视键盘操作
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Dim CtrlDown
CtrlDown = (Shift And vbCtrlMask) > 0
If KeyCode = vbKeyReturn Then ' 键组合.
If CtrlDown Then Call Command1_Click
End If

End Sub
//其中Command1就是发送按钮

结果却是发送后又回车一行
我设置text1.text=""都没有用
是不是这个回车键重复记录了
上面这个函数操作后，textbox又记录一次