Hola, Uhm... tiempo si entrar en el foro.
Yo prefiero usar:
me.visible = False 'Para ocultar una ventana
me.visible = True 'Para volver a mostarla
Aqui te dejo un código que utilice hace tiempo, no recuerdo de quien es o de donde lo saque, lo tenia guardado. Sirve para abrir y cerrar el cd-room.
En el módulo:
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
En el form:
Private Sub CmdAbrirCD_Click()
Dim Res As Long, ReturnString As String * 127
Res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)
End Sub
Private Sub CmdCerrarCd_Click()
Dim Res As Long, ReturnString As String * 127
Res = mciSendString("Set CDAudio Door Closed", ReturnString, 127, 0)
End Sub
A mi me funciona bien, espero que a ti tambien...