ub CheckBox1_CheckedChange(Checked As Boolean)
Dim index As Int = clv2.GetItemFromView(Sender)
Dim idd As Int =clv2.GetValue(index)
Dim cursor1 As Cursor
cursor1= sql1.ExecQuery("SELECT * FROM table1 WHERE ID = " & idd )
For i = 0 To cursor1.RowCount-1
cursor1.Position=i
'ID=cursor1.GetInt2(0)
scheme= cursor1.GetString2(1)
imagepath=cursor1.GetString2(2)
desription=cursor1.GetString2(3)
sound1=cursor1.GetString2(4)
MediaPlayers.put(idd,sound1)
Next
cursor1.Close
If checkbox1.Checked Then
spsample.Initialize
If spsample.IsPlaying Then spsample.Stop
spsample.Load(File.DirAssets,sound1)
spsample.Play
Else
Dim mp As MediaPlayer=MediaPlayers.Get(sound1)
If mp.IsPlaying Then mp.Stop
End If
End Sub