thumbnail viewer image

Private Sub Command1_Click()
   Dim I, C As Integer
   C = File1.ListCount
   MsgBox C

   If C > 9 Then
     C = 9
   End If

   For I = 0 To C
      File1.ListIndex = I
      Image1.Item(I) = LoadPicture(Dir1.Path & "" & "/" & File1.FileName)
   Next

End Sub

Private Sub Command2_Click()
   graphics.Hide
   b1.Show
End Sub

Private Sub Dir1_Change()
   File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
   On Error GoTo tt:

   Dir1.Path = Drive1
   Exit Sub
   tt:

   MsgBox "The divice cannot acces"
End Sub

Private Sub Form_Load()
   List1.AddItem "*.jpg"
   List1.AddItem "*.bmp"
   List1.AddItem "*gif"
   Drive1 = "E:\"
   Dir1.Path = "Project"
   Image1(Index).Stretch = True
End Sub

Private Sub Image1_DblClick(Index As Integer)
   g2.Show
   g2.Image1.Picture = Image1.Item(Index).Picture
End Sub

Private Sub Image1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
   Image1.Item(Index).ToolTipText = Dir1.Path & File1.FileName
End Sub

Private Sub List1_Click()
   File1.Pattern = List1.Text
End Sub