frmwelcome.frm

<Visual Basic 数据库开发实例精粹（第二版）>一书首先介绍了Visual Basic(简称VB)开发的技巧和重点技术

VERSION 5.00
Begin VB.Form frmWelcome 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   3660
   ClientLeft      =   2745
   ClientTop       =   1425
   ClientWidth     =   7230
   DrawStyle       =   1  'Dash
   FillStyle       =   0  'Solid
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmWelcome.frx":0000
   ScaleHeight     =   3660
   ScaleWidth      =   7230
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   2000
      Left            =   480
      Top             =   840
   End
   Begin VB.Label email 
      BackStyle       =   0  'Transparent
      Caption         =   "[e-mail]"
      BeginProperty Font 
         Name            =   "Microsoft Sans Serif"
         Size            =   10.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   348
      Left            =   3840
      MouseIcon       =   "frmWelcome.frx":8F322
      MousePointer    =   99  'Custom
      TabIndex        =   0
      Top             =   3000
      Width           =   2532
   End
End
Attribute VB_Name = "frmWelcome"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub email_Click()
  ShellExecute hwnd, "open", "mailto:" & email.Caption, 0, 0, 0
End Sub

Private Sub Form_Click()
Unload Me
frmLogin.Show vbModal
End Sub

Private Sub Timer1_Timer()
Unload Me
frmLogin.Show vbModal
End Sub
Private Sub email_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
  email.ForeColor = &HFF0000
  email.FontUnderline = True
  
End Sub