VERSION 5.00
Begin VB.Form frmStart 
   Caption         =   "CMNDPROC - Startup"
   ClientHeight    =   5895
   ClientLeft      =   1095
   ClientTop       =   1515
   ClientWidth     =   10035
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   5895
   ScaleWidth      =   10035
   Begin VB.CommandButton Command2 
      Caption         =   "Cancel StartUp"
      Height          =   495
      Left            =   240
      TabIndex        =   7
      Top             =   120
      Width           =   9615
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Press this button to start program immediately or it will start in 30 seconds."
      Height          =   495
      Left            =   240
      TabIndex        =   4
      Top             =   5280
      Width           =   9615
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   360
      Top             =   1800
   End
   Begin VB.Label Label6 
      Caption         =   $"Cmdproc-3.frx":0000
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   1200
      TabIndex        =   6
      Top             =   3600
      Width           =   8055
   End
   Begin VB.Label Label5 
      Caption         =   $"Cmdproc-3.frx":00BD
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   1200
      TabIndex        =   5
      Top             =   2880
      Width           =   8055
   End
   Begin VB.Label Label4 
      Caption         =   $"Cmdproc-3.frx":0174
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   1200
      TabIndex        =   3
      Top             =   1440
      Width           =   8055
   End
   Begin VB.Label Label3 
      Caption         =   $"Cmdproc-3.frx":0220
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   1200
      TabIndex        =   2
      Top             =   4320
      Width           =   8055
   End
   Begin VB.Label Label2 
      Caption         =   $"Cmdproc-3.frx":02C5
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   1200
      TabIndex        =   1
      Top             =   2160
      Width           =   8055
   End
   Begin VB.Label Label1 
      Caption         =   "During Startup this program must have available its C:\Work\ directory and three mapped network drives:"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   480
      TabIndex        =   0
      Top             =   840
      Width           =   9015
   End
End
Attribute VB_Name = "frmStart"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
      frmMain.Show
      Unload frmStart
End Sub

Private Sub Command2_Click()
   End
End Sub

Private Sub Form_Load()
   frmStart.Caption = "Command Processor   Version: " + AppRevision$
   NETDRV = "\\fryfs001v.manitowocfs.com"
   NETDRAW = "\\fryfs001v.manitowocfs.com\drawings"
   NETHAL = "\\qhal"
   
'   NETDRV = "\\fm1"
'   NETDRAW = "\\fm1\eng\eng\drawings"
'   NETHAL = "\\qhal"
End Sub

Private Static Sub Timer1_Timer()
   timit = timit + 1
   tm$ = Trim$(Str$(31 - timit))
   tx$ = tm$
   tm$ = "Press this button to start program immediately or it will start in " + tm$ + " seconds."
   frmStart.Command1.Caption = tm$
   frmStart.Caption = "CMNDPROC - START " + tx$ + "    Version:  " + AppRevision$

   If timit > 30 Then
      frmMain.Show
      Unload frmStart
   End If
End Sub