Como puedo cerrar una ventana

Drako
02 de Diciembre del 2003
Que tal raza tengo una duda que necesito aclarar lo antes posible , por medio de las librerias de vb6 me permitio encontrar que carpeta tiene abierta pero necesito una funcion o algun api que me permite cerrar la carpeta si es la que esta encontrada anexo algo del codigo par a que observer como hago la localizacion
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Dim WinName As String 'WINDOW'S TITLE
WinName = InputBox("Enter a window Title to find out", "Find", "Control Panel")
res = FindWindow(vbNullString, WinName)
If res = 0 Then
MsgBox "Could not find:" & WinName
Else
Shell (exitwindows = WinName)
End If
encontre algo asi pero no me funciona espero y me puedan ayudar

buyeya
02 de Diciembre del 2003
Hola, el problema que tenés, está en la linea siguiente..
res = FindWindow(WinName,vbNullString)
ya que está la estabas usando mal, después la API para cerrar las ventas es DestroyWindow

Public Declare Function DestroyWindow Lib "user32" Alias "DestroyWindow" (ByVal hwnd As Long) As Long

Bueno, espero que tengas suerte..
Saludos desde Mdeo.