Private Sub Command1_Click()   

    Call CreateObject("Shell.Application").MinimizeAll

End Sub

超级简单了。。。