急!急!急!急!如何在VB程序中实现自动传递E-Mail用户名登录elong,WEB页面信箱????急!急!急!急!

Question

Private  Sub  Label1_Click(Index  As  Integer)
  Select  Case  Index
  Case  3
  ret&    =  ShellExecute(Me.hwnd,  "Open",  "mailto:[email protected]",  "",  App.Path,  1)
  Case  4
  ret&    =  ShellExecute(Me.hwnd,  "Open",  "http://www.d1vb.com",  "",  App.Path,  1)
  Case  5
  ret&    =  ShellExecute(Me.hwnd,  "Open",  "http://dyqing.533.net",  "",  App.Path,  1)
  Case  6
  ret&    =  ShellExecute(Me.hwnd,  "Open",  "http://go8.163.com/dbcontrols",  "",  App.Path,  1)
  End  Select
  
  End  Sub