Re:

　　一個例子：一個Command，兩個Text代碼如下：

　　　　　PRivateDeclareFunctionDoFileDownloadLib"shdocvw.dll"(ByVallpszFileAsString)AsLong

　　　PrivateSubCommand1_Click()

　　　　　DimsDownloadAsString

　　　　　sDownload=StrConv(Text1.Text,vbUnicode)

　　　　　CallDoFileDownload(sDownload)

　　　　　EndSub

　　　PrivateSubForm_Load()

　　　　　Text1.Text="http://www.chat.ru/~softdaily/fo-ag162.zip"

　　　　　Form1.Caption="Audiograbber1.62Full"

　　　　　Text2.Text="http://www6.50megs.com/audiograbber/demos/cr-ag161.zip"

　　　　　EndSub

　　Q:--如何在vb中定義一個熱鍵，使得當一個應用程序的窗口最小化后，可以通過熱鍵來喚醒它

　　Re:

　　先聲明API函數SendMessage，然后添加一個按鈕和如下代碼；

　　　　　PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByVal_　　　wMsgAsLong,ByValwparamAsLong,lparamAsAny)AsLong

　　　PrivateSubCommand1_Click()

　　　　　DimwKeyAsLong

　　　　　wKey=66

　　　　　X=SendMessage(Me.hwnd,WM_SETHOTKEY,wKey,0)

　　　　　MsgBox"B鍵將激活窗體！",64,"定義快捷鍵"

　　　　　EndSub

　　enjoyit!