صدای دینگ در هنگام جا به جایی فوکوس با کلید enter

صدای دینگ در هنگام جا به جایی فوکوس با کلید enter
موقع انتقال فوکوس یک دینگ میدهد نمشود کاریش کرد که این صدا را ندهد لطفا راهنمائیم کنید ممنون

اگر از کد زیر استفاده کنید در هر صورت اون صدا رو میشنوید :

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then

Text2.SetFocus

End If

End Sub

در اینجا فکر کنم یک راه داشته باشید. اینکه از کد زیر استفاده کنید. یعنی اول تکست مورد نظر رو غیرفعال کنید و وقتی می خواهید روش فوکوس بزارید اون رو فعال کنید.

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then

Text1.Enabled = True

Text1.SetFocus

End If

End Sub

شما بايد keyascii رو بعد از اين كه چك كرديد كه آيا مساوي 13 هست يا نه، بايد اونو صفر كنيد. به اين صورت:
از رويداد KeyPress استفاده كنيد.

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

   Text2.SetFocus

   KeyAscii = 0

End If

End Sub