Visual Basic - ejecutar sonido en VB6

Saludoss, como puedo hacer para ejecutar o activar un sonido de alerta cuando preciono un boton por ejemplo, el sonido tendria que ser como un piiiiiiiiiii, o algo parecido. muchas gracias

Utiliza las funciones Beep o APIBeep.

Public Declare Function APIBeep Lib "kernel32" Alias "Beep" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Con esta funcion puedes elegir la frecuencia y la duración del pitido. Para que se escuche al pulsar una tecla utiliza el codigo ASCII de esa tecla (por ejemplo la funcion CHR(a) te devuelve el codigo ascii de la tecla a, o CHR(13) es el codigo ascii de la tecla enter)