Design a form that includes formatting options for Drive, Directory, File list, Image Box, Line and Shape

Private Sub Command1_Click()

Line1.BorderStyle = 2

End Sub

Private Sub Command2_Click()

Line1.BorderWidth = 5

Line1.BorderColor = vbRed

End Sub

Private Sub Dir1_Change()

File1.Path = 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

Private Sub Form_Load()

File1.Pattern = "*.JPG"

End Sub

Output: