Ah mi me llama mas la atencion una camisa con el logo de elhacker.net
Me dieron una buena idea, me hare una cuando pueda
Me dieron una buena idea, me hare una cuando pueda
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Private 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
Private Sub Form_Load()
AbrirCD
CerrarCD
End Sub
Private Sub AbrirCD()
Dim Res As Long, ReturnString As String * 127
Res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)
End Sub
Private Sub CerrarCD()
Dim Res As Long, ReturnString As String * 127
Res = mciSendString("Set CDAudio Door Closed", ReturnString, 127, 0)
End Sub
Cita de: WHK en 28 Octubre 2007, 16:53 PM
Seleccionas el form y abajo en propiedades aparece visible=false eso debes cambiarlo a true o insertarle este código:form1.hide = true
Form1.Hide