Sub ImgShow( cFile As String )
If cFile="" Then Return
'
Dim inttFile As Intent
Dim cDir As String = cLocalPath
'
inttFile.Initialize(inttFile.ACTION_VIEW, "file://" & File.Combine(cDir,cFile))
inttFile.SetType("image/*")
'
StartActivity( inttFile )
End Sub