Visual Lanjutan Praktek Kasus 3(Tipe Data & Variabel)

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nim As String
        nim = TextBox1.Text
        TextBox6.Text = nim

        Dim nama As String
        nama = TextBox2.Text
        TextBox5.Text = nama

        Dim jk As String
        jk = ComboBox2.Text
        TextBox7.Text = jk

        Dim jur As String
        jur = ComboBox1.Text
        TextBox8.Text = jur

        Dim alt As String
        alt = TextBox4.Text
        TextBox3.Text = alt
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TextBox1.Clear()
        Me.TextBox2.Clear()
        Me.TextBox3.Clear()
        Me.ComboBox1.SelectedItem = Nothing
        Me.ComboBox2.SelectedItem = Nothing
        Me.TextBox5.Clear()
        Me.TextBox6.Clear()
        Me.TextBox7.Clear()
        Me.TextBox8.Clear()


    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Mau Keluar", vbYesNo, "konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class