VERSION 5.00 Begin VB.Form AboutForm BorderStyle = 3 'Fixed Dialog Caption = "About P4OFC" ClientHeight = 3150 ClientLeft = 45 ClientTop = 330 ClientWidth = 4680 ControlBox = 0 'False LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 3150 ScaleWidth = 4680 ShowInTaskbar = 0 'False StartUpPosition = 1 'CenterOwner Begin VB.CommandButton cmdClose Cancel = -1 'True Caption = "OK" Default = -1 'True Height = 375 Left = 1560 TabIndex = 1 Top = 2640 Width = 1215 End Begin VB.TextBox AboutText Appearance = 0 'Flat BackColor = &H8000000F& BorderStyle = 0 'None Height = 2415 Left = 120 Locked = -1 'True MultiLine = -1 'True TabIndex = 0 Text = "AboutForm.frx":0000 Top = 120 Width = 4335 End End Attribute VB_Name = "AboutForm" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Public m_AppVersion As String Private Sub cmdClose_Click() On Error GoTo Error_Block Dim T As Tracker: Set T = GStackTrace.Enter(TypeName(Me), "cmdClose_Click") Unload Me Exit Sub Error_Block: T.Report End Sub Private Sub Form_Load() On Error GoTo Error_Block Dim T As Tracker: Set T = GStackTrace.Enter(TypeName(Me), "Form_Load") AboutText.Text = "P4OFC - Perforce plugin for Microsoft Office." & vbCrLf & vbCrLf & _ "Version: " & DLLVersion() & vbCrLf & _ "p4com.dll version: " & COMDLLVersion() & vbCrLf & vbCrLf & _ "Office Version: " & m_AppVersion & vbCrLf & _ "Windows Version: " & WindowsVersion() & vbCrLf & vbCrLf & _ "Copyright 2002-2014 Vaccaperna Systems Ltd - http://www.vaccaperna.co.uk" Screen.MousePointer = vbDefault Exit Sub Error_Block: T.Report End Sub