Private Const IDC_HAND = 32649&
Private Const IDC_ARROW = 32512&

Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long

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 Command1_Click()
Form2.Hide
End Sub

Private Sub Form_Load()
Label3.Font.Underline = True
Label4.Font.Underline = True
End Sub

Private Sub Label3_Click()
ShellExecute Me.hwnd, "open", "http://hem.bredband.net/ztriker/", "", "", vbMaximizedFocus
End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim hCur As Long

hCur = LoadCursor(0, IDC_HAND)
If (hCur > 0) Then
SetCursor hCur
End If

End Sub

Private Sub Label4_Click()
ShellExecute Me.hwnd, "open", "mailto:ztriker@bredband.net", "", "", vbMaximizedFocus
End Sub

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim hCur As Long

hCur = LoadCursor(0, IDC_HAND)
If (hCur > 0) Then
SetCursor hCur
End If

End Sub

Private Sub Check1_Click()
Command1_Click
End Sub

Private Sub Command1_Click()
List1.Clear
EnumDriveStrings
Label1.Caption = List1.ListCount & " Drive(s) Found."
End Sub

Private Sub Command2_Click()
Form2.Show vbModal, Me
End Sub