VB2

Public Class Form2

    Private Sub BProses1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BProses1.Click
        TextBox4.Text = Strings.Len(TextBox1.Text)


        TextBox5.Text = "20" & Strings.Left(TextBox2.Text, 2)
        TextBox6.Text = Strings.Right(TextBox2.Text, 3)
        TextBox7.Text = Year(Now) - TextBox3.Text

    End Sub

    Private Sub BHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BHapus.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
    End Sub

    Private Sub BProses3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BKeluar.Click
        Dim x As String
        x = MsgBox("Anda Ingin Keluar?", MsgBoxStyle.YesNoCancel, "Informasi Keluar")

        If x = vbYesNoCancel Then
            Me.Close()

        End If

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox4.Enabled = False
        TextBox5.Enabled = False
        TextBox6.Enabled = False
        TextBox7.Enabled = False

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub
End Class