TextBox'da Enter ile dolaşma.

[spectacuLar]

Kod: Tümünü seç

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then ' Basilan Tus Enter ise
KeyAscii = 0 'Tusabasilmamis say
SendKeys "{TAB}" 'Ttab Tusuna Bas
End If
End Sub

Form üzerinde bulanan Text1 için verilmis? örnektir.