Connect NiceLabel5

 Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click


        Dim nlApp As New NiceLabel5WR.NiceApp
        Dim nlLabel As New NiceLabel5WR.NiceLabel
        Dim Result As Boolean
        Dim id As Long

        id = nlApp.LabelOpen("\\Weerachai-CPE3\Users\Administrator\Documents\My Labels\Labels\test.lbl")
        '   nlLabel = nlApp.LabelOpenEx("\\Weerachai-CPE3\Users\Administrator\Documents\My Labels\Labels\test.lbl")
        Result = nlApp.LabelSetVar(id, "lbl1_RVno", "RC150618...", 0, 0)
        Result = nlApp.LabelSetVar(id, "lbl2_Seq", "C00001", 1, 1)

        nlApp.LabelPrint(id, 1)

        'LabelID = NiceApp.LabelOpen("sample3.lbl")
        'Success = NiceApp.LabelSetVar(LabelID, "Bar Code", "22", 0, 0)
        'Success = NiceApp.LabelPrint(LabelID, 1) ' Print 1 label
        'Success = NiceApp.LabelClose(LabelID)

        '*** Dim nlVarList As NiceEngine5WR.VariableList = nlLabel.Variables

        '        Dim tmpVar As NiceEngine5WR.WRVar
        '        tmpVar = nlVarList.FindByName("Assembly")
        '        tmpVar.SetValue("TS10052626")

        '        'nlLabel.PrinterName = ""
        ' nlLabel.Print(1)
    End Sub
End Class