'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
 
             Next
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