Sub clvBarcode_ItemLongClick (Index As Int, Value As Object)
Dim item As CLVItem = clvBarcode.GetRawListItem(Index)
Dim p As Panel=item.Panel.GetView(0).GetView(0)
Dim lbl4 As Label=p.GetView(3)
Msgbox2Async("Do you want to delete?", "Delete Item", "Yes", "No", "", Null, False)
Wait For MsgBox_Result (iResult As Int)
If iResult = DialogResponse.POSITIVE Then
Log("Deleted row/"& lbl4.Text)
Dim Query As String
Query = "delete from barcode_details where barcodeId = ?"
SQL1.ExecNonQuery2(Query, Array As String(lbl4.Text))
ShowBarcode
End If
End Sub