Thank you for replay. Now I hands it. the following is my code:
Option Explicit
Dim moRaster As New LEADRaster
Dim moRasterIO As New LEADRasterIO
Private Sub Form_Load()
Dim sImageFiles() As String
Dim sImagePath As String
Dim i As Integer
'Using VB CommonDialog open a group of Dicom image file
With Me.CommonDialog
.Filter = "All Files *.*|*.*"
.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer + cdlOFNLongNames
.ShowOpen
sImageFiles = Split(.FileName, vbNullChar)
End With
'Load the selected image files into the cells
For i = 1 To UBound(sImageFiles)
sImagePath = sImageFiles(0) & _
IIf(Right(sImageFiles(0), 1) <> "\", "\", "") & sImageFiles(i)
LoadCellFromFile sImagePath, i - 1
Next i
End Sub
Private Sub LoadCellFromFile(ByVal sPathName As String, ByVal nIndex)
moRasterIO.GetFileInfo(moRaster, sPathName, 0, 0)
moRasterIO.Load(moRaster, sPathName, 0, 0, -1)
Me.LEADRasterImgList.Insert moRaster.Bitmap, "", 0
End Sub
Now I know how to set the size of the images in the list, but I don't know how to set the columns per row as a fixed number, say, 4? at this situation may be two scroll bars are need.