Sub maincPic_LongClick
descripzPic.Bitmap = ri.CreateBitmap(LoadBitmap(File.DirDefaultExternal,"Picture.jpg"))
Dim desCur As Cursor = SQL1.ExecQuery("SELECT Name FROM MyTable WHERE _id = " & lstRowIDs.Get(pos))
desCur.Position = 0
descripz.Text = (desCur.GetString("Name"))
End Sub