VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H8000000B&
   Caption         =   "Form1"
   ClientHeight    =   2430
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3780
   LinkTopic       =   "Form1"
   ScaleHeight     =   2430
   ScaleWidth      =   3780
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer2 
      Interval        =   1000
      Left            =   3120
      Top             =   720
   End
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   3120
      Top             =   240
   End
   Begin VB.CommandButton Link1 
      Caption         =   "Link To You Site"
      Height          =   615
      Left            =   960
      Style           =   1  'Graphical
      TabIndex        =   1
      ToolTipText     =   "Click To Visit My Site"
      Top             =   360
      Width           =   1815
   End
   Begin VB.Label Link 
      BackStyle       =   0  'Transparent
      Caption         =   "Link to your site"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   720
      TabIndex        =   0
      ToolTipText     =   "Click To Visit My Site"
      Top             =   1440
      Width           =   2535
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Browser call routine
#If Win32 Then
               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
               #Else
                   Private Declare Function ShellExecute Lib "shell.dll" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
               #End If
               Private Const SW_SHOWNORMAL = 1

Private Sub Link1_Click()
Dim iret As Long
    iret = ShellExecute(Me.hwnd, vbNullString, "http://members.xoom.com/Dasith", vbNullString, "c:\", SW_SHOWNORMAL)
End Sub

Private Sub Link1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Link1.BackColor = &HFF&
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Link.FontUnderline = False
Link1.BackColor = &H8000000F
End Sub

Private Sub Link_Click()
    Dim iret As Long
    iret = ShellExecute(Me.hwnd, vbNullString, "http://members.xoom.com/Dasith", vbNullString, "c:\", SW_SHOWNORMAL)
End Sub

Private Sub Link_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Link.FontUnderline = True
End Sub

Private Sub Timer1_Timer()
Link1.Caption = "Link To You Site"
End Sub

Private Sub Timer2_Timer()
Link1.Caption = ""
End Sub