Option Explicit Private Sub Command1_Click() Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName) End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End SubTry it. Be advised that not every image file will be able to be displayed by this control. Help file is saying that (Bitmap, icon, metafile, GIF, JPEG) are working.