vb窗体上添加邮箱装置

来源：百度知道 编辑：UC知道 时间：2024/06/18 16:43:34
两个问题：
1.窗体上做个链接到邮箱的那种
2.运行的时候效果和酷狗有点象，就是先一个小的窗体，两秒之后消失，之后一个大的窗体出现。怎么做？

'1.窗体上加个Lable

Private Sub Form_Load()
Lable1.Caption="public@163.com"
Label1.ForeColor=VbBlue
Label1.Font.Underline = True
End Sub

Private Sub Label1_Click()
ShellExecute Me.hwnd, "open", "mailto:" & Label1.Caption, vbNullString, vbNullString, 0
End Sub