vbAccelerator - Contents of code file: fAbout.frmVERSION 5.00
Begin VB.Form frmAbout
BorderStyle = 3 'Fixed Dialog
Caption = "About vbAccelerator Title Bar Focus Modifier"
ClientHeight = 2460
ClientLeft = 5520
ClientTop = 3975
ClientWidth = 4320
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form4"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2460
ScaleWidth = 4320
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton cmdOK
Caption = "OK"
Default = -1 'True
Height = 375
Left = 3060
TabIndex = 0
Top = 2040
Width = 1155
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'
===============================================================================
=======
' Name: vbAccelerator cActiveTitleBar sample
' Author: Steve McMahon (steve@vbaccelerator.com)
' Date: 25 August 1999
'
' Requires: SSUBTMR.DLL
' cActiveTitleBar.cls
'
' Copyright 1998-1999 Steve McMahon for vbAccelerator
'
-------------------------------------------------------------------------------
-------
' Visit vbAccelerator - advanced free source code for VB programmers
' http://vbaccelerator.com
'
-------------------------------------------------------------------------------
-------
Private Sub cmdOK_Click()
Unload Me
End Sub
|