Private Declaere Function xxxxx Lib "shell32.dll"接上行 Alias "ShellexecuteA" (ByVal hWnd As Long,接上行 ByVal lpOperation As String, Const SW SHOW =接上行 5---------------------------------------------------Private sub commandbutton1_click() '<-用表單按鈕Call xxxxxxx(0&, vbNullString, "
http://www.承上 yahoo.com.tw", vbNullString,接上行 vbNormalFocus)End subxxxxxx改成Shellexecute第一行 Declaere 改成 Declare= =
https://goo.gl/pwI2ZH 比較快