如何使用vba讓外面的記事本最大化和最小化？　[金字塔]

 如何使用vba ，讓外面的記事本最大化和最小化？

殘看了之前的帖子，還是不懂得修改

Sub test()
Set Wrap = CreateObject("DynamicWrapper")
Wrap.Register "user32.dll","FindWindow","i=ss","f=s", "r=l"
Wrap.Register "user32.dll","SetWindowPos","i=hhllllu","f=s", "r=l"
WindowHandle = Wrap.FindWindow(vbNullString, "無標題 - 記事本")
If WindowHandle Then
    Call Wrap.SetWindowPos(WindowHandle,-1,0,0,0,0,3)   '設置置頂
    'Call Wrap.SetWindowPos(WindowHandle,-2,0,0,0,0,3)  '取消置頂
End If
End Sub

Sub test()
Set Wrap = CreateObject("DynamicWrapper")
Wrap.Register "user32.dll","FindWindow","i=ss","f=s", "r=l"
Wrap.Register "user32.dll","ShowWindow","i=hu","f=s", "r=l"
WindowHandle = Wrap.FindWindow(vbNullString, "無標題 - 記事本")
If WindowHandle Then
    Call Wrap.ShowWindow(WindowHandle,3)   '最大化
    Call Wrap.ShowWindow(WindowHandle,6)   '最小化
End If
End Sub

建議你多看看金字塔VBA編程幫助，對于DynamicWrapper外部對象調用的幫助說明，另外多在網上看看WIN32 API的一些函數及使用說明