ShowDialog

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
}
LJPA003H_SELECT.ShowDialog()
Me.TB_DPNO1.Text = LJPA003H_SELECT.dpno1
Me.LB_DPNAME1.Text = LJPA003H_SELECT.dpname1
End Sub