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