Probaj ovako nesto. FSO se koristi samo za dobijanje extenzije fajla.
Ovaj kod prikazuje slike u PictureBox-ovima.
Code:
Private FSO As New FileSystemObject
Private Sub File1_Click()
Dim Ext As String
Ext = FSO.GetExtensionName(File1.FileName)
If UCase(Ext) = "EXE" Then
Set Picture2.Picture = LoadPicture("C:\f1.jpg")
Picture1.Visible = False
Picture2.Visible = True
ElseIf UCase(Ext) = "DLL" Then
Set Picture1.Picture = LoadPicture("C:\f2.jpg")
Picture2.Visible = False
Picture1.Visible = True
End If
End Sub
Po potrebi dodati DoEvents na kraju. :)
Btw, If .. Then nije petlja.