Public Class Individual Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox_Length.TextChanged End Sub Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label_Type.Click End Sub End Class