Private Sub Dir1_Change（）
    File1.Path=Dir1＇當(dāng)目錄發(fā)生變化時(shí)，文件列表框中的文件也相應(yīng)變化
    End Sub
    －－－－－－
    Private Sub Drive1_Change（）
    Dir1.Path=Drive1＇當(dāng)驅(qū)動(dòng)器變化時(shí)，目錄列表也相應(yīng)變化
    End Sub
    －－－－－－
    Private Sub File1_Click（）
    Text1.Text=File1.Path＋“\”＋File1＇用來在文本框中顯示被選中的圖形名
    End Sub
    －－－－－－
    Private Sub File1_DblClick（）
    Image1.Picture=LoadPicture（File1.Path＋“\”＋File1）＇當(dāng)雙擊文件列表中的文件時(shí)，文件在圖像框中顯示出來
    End Sub
    －－－－－－
    Private Sub Form_Load（）
    Command1.Enabled=False＇在未選擇圖形文件時(shí)“確定”按鈕不可用
    File1.Pattern=“＊.bmp；＊.jpg；＊.ico；＊.cur”＇在文件列表框中顯示擴(kuò)展名為.BMP、.JPG、.ICO、.CUR的文件
    End Sub
    －－－－－－
    Private Sub Text1_Change（）
    Command1.Enabled=True＇當(dāng)文本框中的內(nèi)容變化時(shí)使“確定”按鈕可用
    End Sub
    好了，按“F5”鍵運(yùn)行一下吧！你還滿意嗎？通過這個(gè)小小的程序，希望廣大初學(xué)VB的讀者能從本文中受到小小的啟發(fā)，然后能用VB 6.0編出自己的絕妙佳作