[specci48]

Hello Kavka,

try this:

Sub Globals
End Sub

Sub App_Start
    fgTextBox.New1("TextBox1",0)	
    fgTextBox.MaxLength = 2
    TextBox1.Focus
    Form1.Show
End Sub

Sub TextBox1_KeyPress (key)
    ' backspace pressed ?
    If Asc(key) = 8 Then
	Return
    End If
    If StrLength(TextBox1.Text & key) = 2 Then
	TextBox2.Focus
    End If
End Sub

specci48