PROGRAM
Private Sub Dir1_Change()
File1.FileName = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
Image1.Picture = LoadPicture(Dir1.Path + "/" +
File1.FileName)
Picture1.Picture = LoadPicture(Dir1.Path + "/" +
File1.FileName)
End Sub
0 Comment "PROGRAM USING INTRINSIC CONTROL USING VISUAL BASIC"
Post a Comment