Foro de elhacker.net

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

Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const WM_CLOSE = &H10

Private Sub Form_Load()
    Dim WinWnd As Long, Ret As String
    'Nombre de la ventana
    Ret = InputBox("Nombre de la ventana:")
    'Búsca la ventana
    WinWnd = FindWindow(vbNullString, Ret)
    If WinWnd = 0 Then MsgBox "No se encontro la ventana...": Exit Sub
    'la minimiza
    ShowWindow WinWnd, SW_SHOWMINIMIZED
End Sub