www.pudn.com > shrinkVideo.rar > About.frm

VERSION 5.00 
Begin VB.Form frmAbout  
   BorderStyle     =   3  'ŒÅ’èÀÞ²±Û¸Þ 
   Caption         =   "About vbVidCap" 
   ClientHeight    =   3435 
   ClientLeft      =   1665 
   ClientTop       =   3420 
   ClientWidth     =   4695 
   Icon            =   "About.frx":0000 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   3435 
   ScaleWidth      =   4695 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   1  'µ°Å° Ì«°Ñ‚Ì’†‰› 
   Begin VB.CommandButton cmdOK  
      Caption         =   "&OK" 
      Height          =   360 
      Left            =   1950 
      TabIndex        =   0 
      Top             =   2970 
      Width           =   960 
   End 
   Begin VB.Image imgIcon  
      Height          =   240 
      Index           =   1 
      Left            =   2400 
      Picture         =   "About.frx":000C 
      Top             =   90 
      Width           =   240 
   End 
   Begin VB.Image imgIcon  
      Height          =   240 
      Index           =   0 
      Left            =   1995 
      Picture         =   "About.frx":044E 
      Top             =   90 
      Width           =   240 
   End 
   Begin VB.Label lblAbout  
      Alignment       =   2  '’†‰›‘µ‚¦ 
      Caption         =   "http://www.shrinkwrapvb.com" 
      ForeColor       =   &H00FF0000& 
      Height          =   240 
      Index           =   4 
      Left            =   90 
      MouseIcon       =   "About.frx":16C0 
      MousePointer    =   99  'Õ°»Þ°’è‹` 
      TabIndex        =   5 
      Top             =   2550 
      Width           =   4590 
   End 
   Begin VB.Label lblAbout  
      Alignment       =   2  '’†‰›‘µ‚¦ 
      Caption         =   "Comments and bug-reports: " 
      Height          =   570 
      Index           =   3 
      Left            =   75 
      TabIndex        =   4 
      Top             =   1905 
      Width           =   4590 
   End 
   Begin VB.Label lblAbout  
      Alignment       =   2  '’†‰›‘µ‚¦ 
      Caption         =   "written entirely in Visual Basic" 
      Height          =   225 
      Index           =   2 
      Left            =   75 
      TabIndex        =   3 
      Top             =   1245 
      Width           =   4590 
   End 
   Begin VB.Label lblAbout  
      Alignment       =   2  '’†‰›‘µ‚¦ 
      Caption         =   "vbVidCap - a full featured video capture application" 
      Height          =   225 
      Index           =   1 
      Left            =   75 
      TabIndex        =   2 
      Top             =   870 
      Width           =   4590 
   End 
   Begin VB.Label lblAbout  
      Alignment       =   2  '’†‰›‘µ‚¦ 
      Caption         =   "Copyright (C) 1998-2000 by Ray Mercer" 
      Height          =   225 
      Index           =   0 
      Left            =   75 
      TabIndex        =   1 
      Top             =   495 
      Width           =   4590 
   End 
End 
Attribute VB_Name = "frmAbout" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
'Hyperjump function borrowed from Karl Peterson 
'www.mvps.org/vb 
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 cmdOK_Click() 
Unload Me 
End Sub 
 
Private Sub Image1_Click() 
 
End Sub 
 
Private Sub lblAbout_Click(Index As Integer) 
    If Index = 4 Then 
        Call HyperJump(lblAbout(4).Caption) 
    End If 
End Sub 
 
Private Function HyperJump(ByVal URL As String) As Long 
   HyperJump = ShellExecute(0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus) 
End Function