get 'ping'-sound

I've made a program and if I want to change the focus from text1 to text 2 I do this:
--------------------
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text2.SetFocus
End If
End Sub
--------------------
but when I press the enter key, I get a 'ping'-sound.
how can I make this disappear?

martijn

Check your system sound settings. VB doesn't do this by itself, but perhaps you have a sound event set up which is raised in this instance.
Do you have a sound set up for all options in the sound menu?

I know why the sound commes but I hoped that I could make it disappear in the program without removing it from the sounds menu.

thanx for your reply anyway!

martijn

if u wanna do it programatically then these 2 APIs must be of some help - GetLocaleInfo and SetLocaleInfo.

I've not tried this but I've changed date settings programatically through these API's. You may try further.

Bye.

Just change your code to this and it should work. (NB It's in a different event.)

VB Code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    KeyAscii = 0
    Text2.SetFocus
  End If
End Sub

I'll try it!

martijn