ICode9

Private Sub BT_DPNO1_Click(sender As Object, e As EventArgs) Handles BT_DPNO1.Click Dim LJPA003H_SELECT As New LJPA003H.LJPA003H_SELECT With { .frmname = Me.Name, .UserNo = UserNo, .UserName = UserName }