Dim popupcopy As ListView
popupcopy.Initialize("popupcopy")
popupcopy.AddSingleLine("Copy")
Activity.AddView(popupcopy, 0, 0, 30%x, 30%y)
Sub lstvv_ItemClick (Index As Int, Value As Object)
If popupcopy.Visible = True Then
popupcopy.Visible = False
else If popupcopy.Visible = False Then
popupcopy.Visible = True
End If
End Sub