This example activates the "Main" MDI window within Program Manager.
Sub Main()
????Dim ProgramManager As HWND
????Dim ProgramManagerMain As HWND
????Set ProgramManager = WinFind("Program Manager")
????If ProgramManager Is Not Nothing Then
????????WinActivate ProgramManager
????????WinMaximize ProgramManager
????????Set ProgramManagerMain = WinFind("Program Manager|Main")
????????If ProgramManagerMain Is Not Nothing Then
????????????WinActivate ProgramManagerMain
????????????WinRestore ProgramManagerMain
????????Else
????????????MsgBox "Your Program Manager doesn't have a Main group."
????????End If
????Else
????????MsgBox "Program Manager is not running."
????End If
End Sub
|