Form1.File1.Path=Form1.Dir1.Path EndSub PrivateSubDrive1_Change() Form1.Dir1.Path=Form1.Drive1.Drive EndSub PrivateSubFile1_Click() Form1.Picture1.Picture=LoadPicture(Form1.File1.Path+"\"+Form1.File1.FileName) EndSub