→ waiter337: Private Declaere Function xxxxx Lib "shell32.dll" 12/11 22:44
→ waiter337: 接上行 Alias "ShellexecuteA" (ByVal hWnd As Long, 12/11 22:46
→ waiter337: 接上行 ByVal lpOperation As String, Const SW SHOW = 12/11 22:48
→ waiter337: 接上行 5 12/11 22:48
→ waiter337: --------------------------------------------------- 12/11 22:48
→ waiter337: Private sub commandbutton1_click() '<-用表單按鈕 12/11 22:49
→ waiter337: 承上 yahoo.com.tw", vbNullString, 12/11 22:50
→ waiter337: 接上行 vbNormalFocus) 12/11 22:51
→ waiter337: End sub 12/11 22:51
→ waiter337: xxxxxx改成Shellexecute 12/11 23:07
→ waiter337: 第一行 Declaere 改成 Declare 12/11 23:11
→ waiter337: = = 12/11 23:22