Attribute VB_Name = "Module1"

Public Sub QcSampleItem()

frmQC.XDLite1.DisplayBMP 0, 0, 1, 0, frmQC.txtQcItemBmp.Text
frmQC.XDLite1.SendMessageS 34, 0, 3, 0, frmQC.txtQcItem.Text
frmQC.XDLite1.SendMessageS 34, 9, 3, 0, frmQC.txtQcItemVersion.Text


End Sub

Public Sub QcSampleToday()

frmQC.XDLite1.DisplayBMP 0, 0, 1, 0, frmQC.txtQcTodayBmp.Text
frmQC.XDLite1.SendMessageS 38, 9, 3, 0, frmQC.txtQcToday
frmQC.XDLite1.SendMessageS 68, 9, 3, 0, frmQC.txtQcTotal

End Sub

Public Sub QcSampleInspected()

frmQC.XDLite1.DisplayBMP 0, 0, 1, 0, frmQC.txtQcInspectedBmp.Text
frmQC.XDLite1.SendMessageS 38, 9, 3, 0, frmQC.txtQcInspected
frmQC.XDLite1.SendMessageS 68, 9, 3, 0, frmQC.txtQcPassed

End Sub

Public Sub QcSampleNotPassed()

frmQC.XDLite1.DisplayBMP 0, 0, 1, 0, frmQC.txtQcNotPassedBmp.Text
frmQC.XDLite1.SendMessageS 38, 9, 2, 0, frmQC.txtQcNotPassed.Text
frmQC.XDLite1.SendMessageS 65, 9, 3, 0, frmQC.txtQcRate.Text

End Sub