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
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Dim Window As Long

Private Sub Command1_Click()
Window = FindWindow(vbNullString, Text1.Text) 'aki la API Findwindow detecta el titulo de la ventana k sera lo k tengamos puesto en el text1.text
 If Window = 0 Then 'si no encuentra la ventana
  MsgBox "Ventana no encontrada", vbCritical + vbInformation, "Error" 'sale un mensaje de error
  Else
  ShowWindow Window, SW_HIDE 'showWindow ocultara la venta
  End If
  
End Sub

Private Sub Command2_Click()
ShowWindow Window, SW_SHOW 'esto es para mostrar la ventana oculta
End Sub