Visual Basic Programming Code Examples Visual Basic > Forms Code Examples Limit text and goto to next textbox Limit text and goto to next textbox 'Of course you can set this also with the properties MaxLenght and TabIndex 'but if thats not enough: 'make a new project with a form and 3 textboxen (index 0,1,2) 'in the textbox(0) you can put 10 characters 'in the textbox(1) you can put 20 characters 'in the textbox(2) you can put 30 characters 'because it's in the keypress_event you get alwaus one character more 'in the CountCharacter you can chech on other Ascii-codes as well Option Explicit Dim MaxCharacters as Integer Dim intCharacters as Integer Dim intTxtBox as Integer Private sub Text1_GotFocus(Index as Integer) intCharacters = 0 select case Index case 0 MaxCharacters = 9 intTxtBox = 1 case 1 MaxCharacters = 19 intTxtBox = 2 case 2 MaxCharacters = 29 intTxtBox = 0 end Select End Sub Private sub Text1_KeyPress(Index as Integer, KeyAscii as Integer) CountCharacters (KeyAscii) End Sub Function CountCharacters(source) 'put the next line in the Textbox_KeyPress event 'CountCharacters(KeyAscii) 'backspace =8 If source <> 8 Then 'count characters intCharacters = intCharacters + 1 'if there are more than you want If intCharacters > MaxCharacters Then 'goto next textbox Text1(intTxtBox).SetFocus Exit Function end If Else intCharacters = intCharacters - 1 end If CountCharacters = intCharacters End Function Return