Zip File view

VERSION 5.00
Begin VB.Form Form1
   BorderStyle     =   1  'Fixed Single
   Caption         =   "My Help Demo"
   ClientHeight    =   3870
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5190
   Icon            =   "frmHello.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3870
   ScaleWidth      =   5190
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdExit
      Caption         =   "Exit"
      Height          =   375
      Left            =   1920
      TabIndex        =   4
      Top             =   3240
      Width           =   1455
   End
   Begin VB.Frame Frame2
      Height          =   735
      Left            =   240
      TabIndex        =   5
      Top             =   3000
      Width           =   4815
   End
   Begin VB.FileListBox File1
      Height          =   2040
      HelpContextID   =   10002
      Left            =   2880
      TabIndex        =   2
      Top             =   720
      Width           =   1935
   End
   Begin VB.DirListBox Dir1
      Height          =   1665
      HelpContextID   =   10001
      Left            =   480
      TabIndex        =   1
      Top             =   1080
      Width           =   2175
   End
   Begin VB.DriveListBox Drive1
      Height          =   315
      HelpContextID   =   1000
      Left            =   480
      TabIndex        =   0
      Top             =   720
      Width           =   2175
   End
   Begin VB.Frame Frame1
      Height          =   2655
      Left            =   240
      TabIndex        =   3
      Top             =   240
      Width           =   4815
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'
'   Objective : To Display Help at runtime in VB6 using HTML Help workshop.
'
'   Written By : Aftab Kashif
'
'   Website(s) WWW : www.ComputerVideos.110mb.com
'                    www.insuranceBenefits.110mb.com
'                    www.ebooksFree.110mb.com
'
'   Email   :    [[Email Removed]]
'
'   Feedback  : I will be more than happy to hear from you. Just write me your comments and valuable feedback.
'               Looking forward to hear from ya! Cheers! :o)
'
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


Private Sub cmdExit_Click()
strMsg = MsgBox("Are you sure you want to exit", vbYesNo + vbQuestion, "www.eBooksFree.110mb.com")
        If Not strMsg = vbYes Then
        Cancel = -1
           Exit Sub
        Else
           End
        End If
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
strMsg = MsgBox("Are you sure you want to exit", vbYesNo + vbQuestion, "www.computerVideos.110mb.com")
        If Not strMsg = vbYes Then
        Cancel = -1
           Exit Sub
        Else
           End
        End If
End Sub