Form Pendaftaran

(VB Design)

VB Coding :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim result As Integer
        result = MsgBox("Anda yakin?", MsgBoxStyle.OkCancel + MsgBoxStyle.Information, "")
        txnama.Text = ""
        txtempat.Text = ""
        tanggal.Text = ""
        bulan.Text = ""
        tahun.Text = ""
        txalamat.Text = ""
        goldar.Text = ""
        txno.Text = ""
        txnama.Focus()
    End Sub

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

    Private Sub txnama_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txnama.KeyPress
        If Asc(e.KeyChar) = 13 Then
            txtempat.Focus()
            txnama.CharacterCasing = CharacterCasing.Upper
        End If
    End Sub

    Private Sub txtempat_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtempat.KeyPress
        If Asc(e.KeyChar) = 13 Then
            tanggal.Focus()
        End If
    End Sub

    Private Sub tanggal_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tanggal.KeyPress
        If Asc(e.KeyChar) = 13 Then
            bulan.Focus()
        End If
    End Sub

    Private Sub bulan_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles bulan.KeyPress
        If Asc(e.KeyChar) = 13 Then
            tahun.Focus()
        End If
    End Sub

    Private Sub tahun_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tahun.KeyPress
        If Asc(e.KeyChar) = 13 Then
            txalamat.Focus()
        End If
    End Sub

    Private Sub txalamat_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txalamat.KeyPress
        If Asc(e.KeyChar) = 13 Then
            txno.Focus()
        End If
    End Sub
End Class