Problema con funcion beep

Question

Buenas a todos,

Estoy comenzando con vb6, no se que version es, si alguien puede indicarme como averiguarlo, me servirá. El problema lo tengo con la funcion beep, al introducir el codigo, me da error justo en la linea del beep, la función es identica a la ayuda:

sub Beep()

Dim I
For I = 1 To 3    ' Realiza un bucle 3 veces.
    Beep ' Emite un tono.
Next I

ens sub

Pero no lo ejecuta, y se bloquea el programa, dando aviso de error y se cierra. Estuve mirando puede ser algo de los uppermission?, si es asi, como se configuran.??

Gracias y salu2

Answer 1

No puedes hacer un Sub que se llame BEEP por que ya existe un procedimiento que se llama BEEP... podrias hacer un Sub que se llame BEEP1 o MiBEEP o TresBeep pero no BEEP...

Private Sub TresBeep()
  Dim A as Integer
  For A=1 To 3
    Beep
  Next A
End Sub
Private Sub Command1_Click()
  TresBeep
End Sub

Saludos desde Mexico.

---

EmmaRmz

Answer 2

Muchas gracias Emma.Me ha funcionado de maravilla. Gracias y saludos.