VERSION 5.00 Begin VB.Form frmResults BorderStyle = 1 'Fixed Single Caption = "Results" ClientHeight = 7710 ClientLeft = 45 ClientTop = 330 ClientWidth = 9645 Icon = "frmResults.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 7710 ScaleWidth = 9645 StartUpPosition = 1 'CenterOwner Begin VB.CommandButton cbClose Caption = "&OK" BeginProperty Font Name = "Verdana" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 450 Left = 8445 TabIndex = 1 Top = 7185 Width = 1095 End Begin VB.TextBox txtResults BeginProperty Font Name = "Courier New" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 6855 Left = 135 Locked = -1 'True MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 0 Top = 240 Width = 9405 End End Attribute VB_Name = "frmResults" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub cbClose_Click() frmMain.Show Unload Me End Sub