VB程式設計到後期，如果小有名氣，往往會需要類似公告的功能，讓使用者能夠即時了解的這個程式的更新動態

但要如何才能做出這種功能呢?

看下去吧!

首先，我們需要一個元件，”Inet”

那這個元件在哪呢?

跟著我做吧!

打開VB，先開啟一個標準執行檔

然後，專案→設定使用元件(Ctrl+T)

勾選”Microsoft Internet Transfer Control”，按下確定

若你沒有”Microsoft Internet Transfer Control”，請按下方連結下載
http://www.megaupload.com/?d=S4ONV1P9

Google協作平台
然後再用”設定使用元件”裡「瀏覽」來開啟

成功載入元件”Microsoft Internet Transfer Control”後，會發現左邊的工具箱多了一個東西，”Inet”

將Inet佈置在表單上

再佈置一個Text1，並且將它的MultiLine屬性設定為True，再把Text屬性清空

然後先到此為止，我們需要一個空間來放置我們想要的文字，我個人是推薦My3GB

當然，這空間我先前就有教學了  進入文章：免費空間 My3GB 大空間 大流量

這空間速度很穩，而且我申請很久都沒在用，還沒有掛點

照上面的方法，申請好My3GB的帳號後，登入FTP

然後刪除”index.html”檔案

接著，先在自己的本機磁碟上建立一個空白的記事本(檔名不拘)，我以word.txt為例

再將此空白記事本，上傳到你的FTP空間上

接著在FTP軟體上對word.txt按右鍵→編輯

打上你要顯示的文字

然後在編輯區內按 右鍵→檔案→儲存

接著回到VB

在Private Sub Form_Load()打上以下程式碼：

Private Sub Form_Load()
Text1.Text = Inet1.OpenURL(“http://您的網域/檔名.txt”)
End Sub

以我的例子，就變為

Private Sub Form_Load()
Text1.Text = Inet1.OpenURL(“http://deanteach.my3gb.com/word.txt”)
End Sub

接著，執行程式，看看成果

結果：文字正常顯示，但該換行的地方卻沒有換

若要換行，則不能用TextBox，要用RichTextBox

PS!VB若有用到外部元件，製成執行檔後，還需將OCX檔放在執行檔的旁邊(跟執行檔同目錄下)，或是放在”%windir%system32″內

本篇教學就到此結束