Dim pdfMap as Map= CreateMap("doc1.pdf":"c:\documents\doc1.pdf","doc2.pdf":"c:\documents\doc2.pdf","doc3.pdf":"c:\documents\doc3.pdf")
'
'
'
'
Sub flexgrid1_CellClick(Row As Int, Col As Int)
Dim S As String = FlexGrid1.GetCellValue(Row,Col)
Dim pdfUrl as string = pdfMap.Get(S)
Dim intent As Intent
intent.Initialize(intent.ACTION_VIEW, pdfUrl)
intent.SetType("application/pdf")
StartActivity(intent)
End If
End Sub