Sub CmdBrowse_Click
Ret = Fd.Show("Diary", "OK", "Cancel", "", Null)
If Ret = DialogResponse.POSITIVE Then
StrFldName = Fd.FilePath & "/"
StrFileName = Fd.ChosenName
Bitmaps.Put(StrFileName,StrFldName)
AddThumNailImage(Bitmaps)
End If
Sub AddThumNailImage (PicMap As Map)
For i =0 To PicMap.Size-1
Dim ImgThum As ImageView
ImgThum.Initialize("")
ImgThum.Bitmap= LoadBitmapResize(PicMap.GetValueAt(i),PicMap.GetKeyAt(i), 100%x,100%y,True)
HorizontalScrollView1.Panel.AddView(ImgThum, 5dip, 5dip + i * 200dip, 70 - 10dip, 190dip)
Next
End Sub