我想通过使用visual basic单击一个按钮来打开并最小化记事本文件。

Private Sub Button_Click() '按钮的点击事件
    Dim objShell As Object '创建Shell对象
    Set objShell = CreateObject("WScript.Shell")
    
    '打开记事本文件
    objShell.Run "notepad.exe"
    
    '最小化记事本窗口
    objShell.AppActivate "记事本"
    objShell.SendKeys "% n"
    
    Set objShell = Nothing '释放对象
End Sub