Sub gjtct_Load()     \'加载窗体时显示最大和最小按钮
 gjtct.MinButton=1
 gjtct.MaxButton=1
 
End Sub

Sub gjtct_CommandButton1_Click()
dim Label
  dim Market
  Result = Application.GetCurrentStock(Label,Market)
  if Result = 0 then
      msgbox "请选择一个品种"
      exit sub
  end if
 call Application.ShellExecute ("open", "http://www.windin.com/home/stock/html/"&Label&"."&Market&".shtml?&t=1&q="&Label, "", "", 1 )
End Sub

Sub gjtct_CommandButton2_Click()
dim Label
  dim Market
  Result = Application.GetCurrentStock(Label,Market)
  if Result = 0 then
      msgbox "请选择一个品种"
      exit sub
  end if
 call Application.ShellExecute ("open", "http://profile.10jqka.com.cn/GenBase/"&Label&".html", "", "", 1 )   \'巨灵F10

End Sub

Sub gjtct_CommandButton3_Click()
dim Label
  dim Market
  Result = Application.GetCurrentStock(Label,Market)
  if Result = 0 then
      msgbox "请选择一个品种"
      exit sub
  end if
 call Application.ShellExecute ("open", "http://guba.eastmoney.com/"&Label&",guba.html", "", "", 1 )   \'东方财富股吧
End Sub

Sub gjtct_CommandButton4_Click()    \'搜狗新闻搜索

dim Label
  dim Market
  Result = Application.GetCurrentStock(Label,Market)
  if Result = 0 then
      msgbox "请选择一个品种"
      exit sub
  end if
 call Application.ShellExecute ("open", "http://news.sogou.com/news?query="&Label&"", "", "", 1 )               
End Sub

Sub gjtct_CommandButton5_Click()
Application.WinExec  "E:\\dzh2\\大智慧新一代.exe", 1

End Sub

Sub gjtct_CommandButton7_Click()
 
   dim Label
  dim Market
  Result = Application.GetCurrentStock(Label,Market)
  if Result = 0 then
      msgbox "请选择一个品种"
      exit sub
  end if
 
 Set objIE = CreateObject("InternetExplorer.Application")   \'调用MSie的剪贴板实现复制股票代码
 objIE.Navigate("about:blank")
 objIE.document.parentwindow.clipboardData.SetData "text", Label
 objIE.Quit
 
 msgbox "已成功将"&Market&Label&"复制到粘贴板"

以下分别是wind搜索和巨灵F10搜索的结果