04/02/2005, 14:14
|
 | Colaborador | | Fecha de Ingreso: diciembre-2003 Ubicación: Antigua Guatemala
Mensajes: 4.032
Antigüedad: 20 años, 5 meses Puntos: 53 | |
talvez esto te ayude
Código:
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim frequency As Long
Dim duration As Long
frequency = 800 'Hz
duration = 500 'ms (1/2 sec.)
Beep frequency, duration
End Sub
__________________ * Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com twitter: @GeoAvila |