Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text.Length >= TextBox1.MaxLength Then
'Tabキーの動作をさせる
SendKeys.Send("{Tab}")
End If
End Sub