![:P :P](https://forum.elhacker.net/Smileys/navidad/tongue.gif)
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úCitarLa verdad es que el código es la caña para programillas broma
Private Sub Form_Load()
Timer1.Interval = 1000 ' a cada seg sonará un beep.
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "hh:mm")
'ponemos la hora que deseemos...
If alarma = "12:00" Then
ValorRetorno = Beep(1000, 1000)' en estos valores esta la frecuencia del beep, x lo q puedes cambiar el sonido a tu gusto... :P
End If
End Sub
Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long