VERSION 5.00Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"Begin VB.Form RTDX_gridfrm    BorderStyle     =   5  'Sizable ToolWindow   Caption         =   "Grid"   ClientHeight    =   5190   ClientLeft      =   4410   ClientTop       =   1410   ClientWidth     =   6495   Icon            =   "rtdx_gridfrm.frx":0000   LinkTopic       =   "RTDX_gridfrm"   LockControls    =   -1  'True   MaxButton       =   0   'False   MinButton       =   0   'False   PaletteMode     =   1  'UseZOrder   ScaleHeight     =   5190   ScaleWidth      =   6495   ShowInTaskbar   =   0   'False   Begin MSFlexGridLib.MSFlexGrid RTDX_grid       Height          =   5175      Left            =   0      TabIndex        =   0      Top             =   0      Width           =   6495      _ExtentX        =   11456      _ExtentY        =   9128      _Version        =   393216      GridLines       =   3   EndEndAttribute VB_Name = "RTDX_gridfrm"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = False'Constants for the RTDX Grid FormDim FORM_START_WIDTHDim FORM_START_HEIGHTPrivate Sub Form_Load()        FORM_START_WIDTH = (Screen.Width / 2)    FORM_START_HEIGHT = (Screen.Height / 2)    Left = (Screen.Width - Width) / 1.235    Top = (Screen.Height - Height) / 2    RTDX_gridfrm.ShowEnd SubPrivate Sub Form_Resize()    'Grow/Shrink Grid + leave room for scroll bars    RTDX_grid.Width = _        (RTDX_gridfrm.Width * (FORM_START_WIDTH - 150)) / _            FORM_START_WIDTH    RTDX_grid.Height = _        (RTDX_gridfrm.Height * (FORM_START_HEIGHT - 500)) / _            FORM_START_HEIGHT    'Re-position Grid    RTDX_grid.Left = 0    RTDX_grid.Top = 0End SubPrivate Sub Form_Unload(Cancel As Integer)    ' Remove form only when tmr_Method_Dispatch is not running    If Cancel = 0 Then        If RTDX_frm.tmr_Method_Dispatch.Enabled = True Then            Cancel = 1        End If    End IfEnd Sub