Input_Output

Public Class Form1

    Private Sub btULang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btULang.Click
        lblOut_Nama.Text = "-"
        txtIn_Nama.Text = ""
        lblOut_Nim.Text = "-"
        txtIn_Nim.Text = ""
    End Sub

    Private Sub btInput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btInput.Click
        lblOut_Nama.Text = txtIn_Nama.Text
        lblOut_Nim.Text = txtIn_Nim.Text

    Private Sub btKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btKeluar.Click
        Me.Close()
    End Sub

End Class