Private Declare Function FindWindow Lib "user32" _
  Alias "FindWindowA" ( _
  ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long
 
Private Declare Function ShowWindow Lib "user32" ( _
  ByVal hWnd As Long, _
  ByVal nCmdShow As Long) As Long

Dim sTitle As String
Dim hWnd As Long
 
<font color=green>' exakter Fenstertitel</font>
sTitle = "Exakter Fenstertitel"
 
<font color=green>' Nach Fenster suchen</font>
hWnd = FindWindow(vbNullString, sTitle)
 
<font color=green>' Fenster gefunden</font>
If hWnd <> 0 Then
  <font color=green>' Fenster maximieren</font>
  ShowWindow hWnd, vbMaximizedFocus
End If