Sub clv1_ItemLongClick (Position As Int, value As Object)
Dim result As Int
Log("longclick")
'Wait(1000)
result =Msgbox2("Remove Exercize", "", "Remove", "Cancel", "", Null)
Log("after message box pop up")
If result=DialogResponse.POSITIVE Then
Log("remove clicked")
Else
Log("cancel clicked")
End If
Wait(2000)
Log("exiting long click dialog")
End Sub