Dim WithEvents sdkObject As SAWHSDKLib.SAWHAppObject

Set sdkObject = New SAWHSDKLib.SAWHAppObject

Private Sub DeleteItemFromLabel_Click()

	Dim Cancelled As Boolean
	Dim ResultDescription As String
	Dim DeleteItemFromLabelSet As New SAWHDeleteItemFromLabelSet

	Dim FileName As String

	FileName = "$/FileName.txt"

	'At first should get the file labeled info
	Dim LabeledInfoSet As New SAWHLabeledInfoSet
	Dim ResultValue As Long
	ResultValue = sdkObject.GetFileLabeledInfo(FileName, LabeledInfoSet, Cancelled, ResultDescription)
	If ResultValue <> 0 Then
		MsgBox "Failed to get the file labeled info."
		Exit Sub
	End If
	Dim LabelInfo As New SAWHLabeledInfo
	LabeledInfoSet.Get 0, LabelInfo

	Dim DeleteItemFromLabel As New SAWHDeleteItemFromLabel
	DeleteItemFromLabel.HistoryIdLow = LabelInfo.HistoryIdLow
	DeleteItemFromLabel.HistoryIdHigh = LabelInfo.HistoryIdHigh
	DeleteItemFromLabelSet.Add DeleteItemFromLabel

	ResultValue = sdkObject.DeleteItemsFromLabel(LabelInfo.LabelIdLow, LabelInfo.LabelIdHigh, DeleteItemFromLabelSet, Cancelled, ResultDescription)
	If ResultValue <> 0 Then
		MsgBox ("Failed to delete the item(s) from label.")
	End If

	Dim Count As Long
	Count = DeleteItemFromLabelSet.GetCount
	Dim Index As Long
	For Index = 0 To Count

		DeleteItemFromLabelSet.Get Index, DeleteItemFromLabel

		Dim Description As String
		Description = DeleteItemFromLabel.Description

		Dim IsSuccessful As Boolean
		IsSuccessful = DeleteItemFromLabel.Successful

		Dim HistoryIdLow As Long
		HistoryIdLow = DeleteItemFromLabel.HistoryIdLow

		Dim HistoryIdHigh As Long
		HistoryIdHigh = DeleteItemFromLabel.HistoryIdHigh

	Next

End Sub