Создаем программу для просмотра избражений на Visual Basic

Пришло время создать программу для просмотра изображений (типа ACDSee). Как всегда я рассказу только основы, а уж внешний вид и улучшения делайте сами. То, что получится присылайте мне на ящик snowman@74.ru. И еще... У меня кончаются идео о том, что нужно размещать на сайте ! Проявите активность, напишите и еще лучше присылайте свои программы!

Так, лирическое отступление закончено, пришло время делать дело... Добавляем на форму:

Компоненты DriveListBox, DirListBox, FileListBox с их исходными именами
Компонент Image c именем Picture1, свойством Stretch = True

Private Sub Dir1_Change()
" если выбрали другой диск, то папки берутся именно из выбранного диска
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
" если выбрали другую папку, то файлы берутся именно из выбранной папки
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
" обработка ошибки
On Error GoTo error1
" загружаем в Image выбранную в FileListBox картинку
Picture1.Picture = LoadPicture(File1.Path & "/" & File1.FileName)
" событие происходящее при ошибке
error1: If Err <> 0Then
" появление сообщения
MsgBox "Ошибка !"
End If
End Sub