Visual Lanjutan Praktek Kasus 2(Tipe Data & Variabel)

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

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

        Dim isbn As String
        isbn = TextBox3.Text
        TextBox6.Text = isbn

        Dim kat As String
        kat = ComboBox1.Text
        TextBox9.Text = kat

        Dim harga As String
        harga = TextBox4.Text
        TextBox5.Text = harga
    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.TextBox4.Clear()
        Me.TextBox5.Clear()
        Me.TextBox6.Clear()
        Me.TextBox7.Clear()
        Me.TextBox8.Clear()
        Me.TextBox9.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