太陽西下

不代表今天的結束

而是今天努力的開始

當夜幕低垂

不是今天的結束

而是汗水逐漸累積成果的開始

不管如何，願意留下來與老師共同努力的同學，

我都覺得您們是我所教過的菁英班同學，因為您

們我得以成長，因為您們我擁有喜悅與成就!

謝謝資訊二孝的菁英同學!

Private Sub Dir1_Change()   //目錄1改變時執行

File1.Path = Dir1                  //將檔案1的路徑改成目錄1

End Sub

Private Sub Drive1_Change()    //磁碟1改變時執行

Dir1.Path = Drive1                    //目錄1路徑改成磁碟1

End Sub

Private Sub File1_Click()         //檔案1點擊時執行

Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)

//影像1.圖片=載入圖片(目錄1路徑 \ 檔案名稱)

End Sub