sori ada yang tertinggal
   
  Private Sub Text1_KeyPress( KeyAscii As Integer)  'text1.text kalau ada 
tombol yang ditekan
If KeyAscii = 13 Then                                             'kalau 
keascii = 13 atau di tekan 
                                                                               
enter
text4.setfocus                                                        'untuk 
pindah kursor ke object text4
End If
End Sub 
                         


       
---------------------------------
Never miss a thing.   Make Yahoo your homepage.

Kirim email ke