flyup の 部落

1.參考資料：
  Using the .NET Framework Class Library from Visual Basic 6
    http://msdn.microsoft.com/zh-tw/vbrun/aa719110(en-us,VS.71).aspx
2.範例檔案下載：here
3.安裝範例檔案後，執行Register.bat，使.NET framework System.dll轉為可被叫用的COM物件。
4.VB6 建立標準執行檔(Standard EXE)專案。
5.放入CommandButton和Image控制項。
6.Image控制項Stretch屬性為True。
7.VB6 專案選單->設定引用項目(References)->選擇System項目
  (位置C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\system.tlb) 
  
ps.若Register.bat未執行，則專案執行時會顯示Can't create object錯誤訊息。

8.CommandButton之程式碼：
Private Sub Command1_Click()
Dim webDownload As System.WebClient
Set webDownload = New System.WebClient
webDownload.downloadFile _
                  "http://www.ssec.wisc.edu/data/west/latest_westir.jpg", _
                  App.Path & "\latest_westir.jpg"
Set Image1.Picture = LoadPicture(App.Path & "\latest_westir.jpg")
End Sub

9.執行專案。