Register TypeLib Source Code (61K)
VB5 Register TypeLib Utility (29K)
VB6 Register TypeLib Utility (26K)
19 Dec 2002
More usable UI
VB6 Version
Ability to save all registered TypeLibs as XML file
IShellFolder Extended Type Library Version 1.2 (ISHF_Ex.Tlb)
vbAccelerator - Contents of code file: fAbout.frm
VERSION 5.00
Begin VB.Form frmAbout
BackColor = &H00FFFFFF&
BorderStyle = 3 'Fixed Dialog
Caption = "vbAccelerator's Goldfish"
ClientHeight = 4365
ClientLeft = 5880
ClientTop = 3450
ClientWidth = 5550
ClipControls = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3012.801
ScaleMode = 0 'User
ScaleWidth = 5211.736
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton cmdOK
Cancel = -1 'True
Caption = "OK"
Default = -1 'True
Height = 345
Left = 4080
TabIndex = 2
Top = 3840
Width = 1260
End
Begin VB.TextBox txtSpecialCopyright
Height = 675
Left = 1140
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 1
Text = "fAbout.frx":0000
Top = 5640
Width = 4455
End
Begin VB.Label lblDotLine
BackStyle = 0 'Transparent
Caption = "................."
BeginProperty Font
Name = "Times New Roman"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 1
Left = 3300
TabIndex = 4
Top = 60
Width = 2535
End
Begin VB.Label lblDescription
BackStyle = 0 'Transparent
Caption = "Free, advanced source code and tools from
vbAccelerator - Better VB!"
ForeColor = &H00000000&
Height = 630
Index = 1
Left = 1020
TabIndex = 14
Top = 2640
Width = 3885
End
Begin VB.Label lblInfo
BackStyle = 0 'Transparent
Caption = "vbRegTLB"
BeginProperty Font
Name = "Tahoma"
Size = 27.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 675
Index = 1
Left = 1500
TabIndex = 10
Top = 480
Width = 2835
End
Begin VB.Label lblDotLine
BackStyle = 0 'Transparent
Caption = "................."
BeginProperty Font
Name = "Times New Roman"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Index = 0
Left = 60
TabIndex = 5
Top = 720
Width = 2115
End
Begin VB.Shape shpRect
BorderColor = &H00C0C000&
BorderWidth = 16
Height = 855
Index = 1
Left = 180
Top = 240
Width = 855
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "vbAccelerator"
BeginProperty Font
Name = "Tahoma"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404000&
Height = 480
Left = 1140
TabIndex = 9
Top = 120
Width = 2865
End
Begin VB.Label lblVersion
BackStyle = 0 'Transparent
Caption = "Version: 2.00"
ForeColor = &H00000000&
Height = 225
Left = 1020
TabIndex = 13
Top = 3180
Width = 1410
End
Begin VB.Line Line1
BorderColor = &H00C0C0C0&
BorderStyle = 6 'Inside Solid
Index = 1
X1 = 901.489
X2 = 5197.65
Y1 = 2153.479
Y2 = 2153.479
End
Begin VB.Image imgIcon
Height = 480
Left = 360
Picture = "fAbout.frx":00C8
Top = 420
Width = 480
End
Begin VB.Shape shpRect
BorderColor = &H000080FF&
BorderWidth = 8
Height = 675
Index = 0
Left = 4500
Top = 360
Width = 615
End
Begin VB.Label lblInfo
BackStyle = 0 'Transparent
Caption = "Register, Unregister and Check Type Libraries"
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 495
Index = 2
Left = 2100
TabIndex = 8
Top = 1080
Width = 2835
End
Begin VB.Label lblCopyright
BackStyle = 0 'Transparent
Caption = "Copyright 1998-1999 Steve McMahon "
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Left = 1020
MouseIcon = "fAbout.frx":133A
MousePointer = 99 'Custom
TabIndex = 7
Tag = "http://vbaccelerator.com/j-index.htm?url=cright.htm"
Top = 3840
Width = 3990
End
Begin VB.Label lblURL
BackStyle = 0 'Transparent
Caption = "http://vbaccelerator.com/"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Left = 1020
MouseIcon = "fAbout.frx":1644
MousePointer = 99 'Custom
TabIndex = 6
Tag = "http://vbaccelerator.com/"
Top = 4020
Width = 3870
End
Begin VB.Label lblProduct
BackStyle = 0 'Transparent
Caption = "vbRegTLB Home Page"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 195
Left = 1020
MouseIcon = "fAbout.frx":194E
MousePointer = 99 'Custom
TabIndex = 3
Tag =
"http://vbaccelerator.com/j-index.htm?url=codelib/tlb/vbregtlb.htm"
Top = 3360
Width = 2355
End
Begin VB.Label lblDescription
BackStyle = 0 'Transparent
Caption = "vbRegTLB is the ultimate utility for registering,
unregistered and managing Type Libraries on your System Type."
ForeColor = &H00000000&
Height = 630
Index = 0
Left = 1080
TabIndex = 0
Top = 1860
Width = 3885
End
Begin VB.Shape shpRect
BorderStyle = 0 'Transparent
FillColor = &H00C0E0FF&
FillStyle = 0 'Solid
Height = 615
Index = 2
Left = 4860
Top = 180
Width = 555
End
Begin VB.Label lblInfo
BackColor = &H0080C0FF&
Height = 225
Index = 4
Left = 1080
TabIndex = 12
Top = 540
Width = 3885
End
Begin VB.Label lblDescription
BackColor = &H00C0E0FF&
ForeColor = &H00000000&
Height = 870
Index = 3
Left = 1080
TabIndex = 11
Top = 780
Width = 3885
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_frmUnload As frmTypeLib
Private Sub pShell(ByVal sWhat As String)
On Error Resume Next
ShellEx sWhat, , , , , Me.hWnd
If (Err.Number <> 0) Then
MsgBox "Sorry, I failed to open '" & sWhat & "' due to an error." &
vbCrLf & vbCrLf & "[" & Err.Description & "]", vbExclamation
End If
End Sub
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Caption = "About " & App.Title
Dim f As Object, bDone As Boolean
For Each f In Forms
If TypeOf f Is frmTypeLib Then
Me.Icon = f.Icon
bDone = True
Exit For
End If
Next f
If Not bDone Then
Me.Icon = frmTypeLib.Icon
Set m_frmUnload = frmTypeLib
End If
lblVersion.Caption = "Version: " & App.Major & "." & Format$(App.Minor,
"00") & "." & Format$(App.Revision, "0000")
End Sub
Private Sub imgVBAccelerator_Click()
pShell "http://vbaccelerator.com/"
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If Not m_frmUnload Is Nothing Then
Unload m_frmUnload
End If
Set m_frmUnload = Nothing
End Sub
Private Sub lblCopyright_Click()
pShell lblCopyright.Tag
End Sub
Private Sub lblProduct_Click()
pShell lblProduct.Tag
End Sub
Private Sub lblURL_Click()
pShell lblURL.Tag
End Sub
