Public Class Form1 Private Sub BPay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BPay.Click End Sub Private Sub BExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BExit.Click Me.Close() End Sub Private Sub BNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BNext.Click Me.TxtID.Focus() End Sub Private Sub TxtID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtID.TextChanged End Sub Private Sub TxtLast_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtLast.TextChanged End Sub Private Sub TxtFirst_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtFirst.TextChanged End Sub Private Sub TxtRate_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtRate.TextChanged End Sub End Class