quiero que no se vea esto en la barra de programas abiertos
quedando la posibilidad de cerrar el programa con el boton "Salir"
Si lo que queres es que no se vea la pestaña sin cerrar usa este codigo (necesitas dos botones con los nombres "Command1" y "Command2"):
Const SW_HIDE = 0
Const SW_NORMAL = 1
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 handle As Long
'Minimiza
Private Sub Command1_Click()
handle = FindWindow(vbNullString, "MSN Messenger") 'aqui pones el nombre de la ventana
ShowWindow handle, SW_HIDE
End Sub
'Mostramos
Private Sub Command2_Click()
'aqui pones el nombre de la ventana otra vez...
handle = FindWindow(vbNullString, "MSN Messenger")
ShowWindow handle, SW_NORMAL
End Sub
El comand1 es para "hacerla desaparecer" y el comand2 es para "hacerla aparecer"
PD: si lo que queres hacer es cuando la ventana se ejecuta que se esconda directamente pones el codigo este en Sub Form Load:
Const SW_HIDE = 0
Const SW_NORMAL = 1
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 handle As Long
Private Sub Form_Load()
'aqui pones el nombre de la ventana otra vez...
handle = FindWindow(vbNullString, "MSN Messenger")
ShowWindow handle, SW_HIDE
End Sub
PD2: para cerrar el programa lo arias desde la aplicacion procesos.... ctrl+alt+supr
PD3: este cosigo no lo cree yo.. mas kisiera
Salu2
Ranslsad