vb作成したらでbeep音が鳴ります。経験あるかたお願いします。

質問

KeyPressイベントを追加して、データ入力後にエンターキーを押すとbeep音が鳴ります。ほかではescキーも鳴りますが、その他は鳴らないで動くようです。
単純に新規作成から、Form1へtestテキストコントロールを追加して、以下の記述をしただけなのですが、どうしてなるのか原因がわかりません。

Private Sub test_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
test.text="ok"
End If
End Sub　←この次でbeep音！

環境はvb6.0、windows2000。
仕様なのでしょうか？
ハード側の問題なのでしょうか？
経験あるかた宜しくお願い致します。

回答No.1

TAGOSAKU7 · ベストアンサー

TAB/ENTER/ESCAPEキーは殺しましょうw

Private Sub test_KeyPress(KeyAscii As Integer)
　　Select Case KeyAscii
　　　　Case vbKeyReturn, vbKeyEscape, vbKeyTab
　　　　Case Else
　　　　　　Exit Sub
　　End Select
　　If KeyAscii = 13 Then
　　　　test.Text = "ok"
　　End If
　　KeyAscii = 0
End Sub

お礼

ベストな回答ありがとうございます。