'Projemize 4 adet text ve 1 adet command eklemeliyiz.
'textlerin name özelli?ini text1 için t1 text2 için t2 ....
'command nesnesinin name özelli?ini c1 olarak de?i?tirelim
For i = 1 To 4 Load t1(i) Load t2(i) Load t3(i) Load t4(i) Load c1(i) t1(i).Visible = True t2(i).Visible = True t3(i).Visible = True t4(i).Visible = True c1(i).Visible = True l = t1(i - 1).Top + t1(i).Height - 15 l = t2(i - 1).Top + t2(i).Height - 15 l = t3(i - 1).Top + t3(i).Height - 15 l = t4(i - 1).Top + t4(i).Height - 15 l = c1(i - 1).Top + c1(i).Height - 15 t1(i).Top = l t2(i).Top = l t3(i).Top = l t4(i).Top = l c1(i).Top = l c1(i).Enabled = False End Sub Private Sub t1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then t1(Index + 1).SetFocus c1(Index + 1).Enabled = True c1(Index).Enabled = False KeyAscii = 0 End If