Maximize external window when it's already open using the API.

I have this code which opens a file in a maximized form with no problem, however I'd like to maximize an already open file without reopening it.

Private Const SW_MAXIMIZE As Long = 3
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Sub maximizewindow()
Filename = FindWindow(vbNullString, "Untitled.txt - Notepad")
start_doc = ShellExecute(Filename, "open", "C:\Untitled.txt", 0, 0, SW_MAXIMIZE)
End Sub

Many Thanks

Never Mind, I found it:

Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_MAXIMIZE As Long = 3
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Sub maximize()
Filename = FindWindow(vbNullString, "metro.txt - Notepad")
Call ShowWindow(Filename, SW_MAXIMIZE)
End Sub

FYI: This API code is for 32 bit windows only. This will crash on Windows 64 systems.