Sub btnMyLeadsDelete_Click
Dim Index As Int = clv2.GetItemFromView(Sender)
Dim text As String = expandable.GetValue(Index)
Log(text)
Dim MyID As String = txtID.text
MyID = MyID.Trim
Starter.DB.ExecNonQuery("DELETE FROM myleads WHERE id = " & MyID)
Log("LEAD DELETED: " & MyID)
ToastMessageShow("LEAD HAS BEEN DELETED", False)
CallSubDelayed(Me, "loadMyLeads")
End Sub