www.pudn.com > actontown.zip > frmActonTown3.frm
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmsimulation
Caption = "Form1"
ClientHeight = 9900
ClientLeft = 165
ClientTop = 450
ClientWidth = 14445
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 9900
ScaleWidth = 14445
WindowState = 2 'Maximized
Begin VB.CommandButton Command2
Caption = "ECmn-depot"
Height = 285
Left = 495
TabIndex = 82
Top = 7065
Width = 1365
End
Begin VB.CommandButton Command1
Caption = "ECmn P2-WL99"
Height = 330
Left = 495
TabIndex = 81
Top = 6705
Width = 1365
End
Begin VB.Frame Frame1
BorderStyle = 0 'None
Caption = "Frame1"
Height = 5685
Left = -2520
TabIndex = 1
Top = 360
Width = 26000
Begin VB.Label Label22
Caption = "00000"
Height = 180
Left = 8280
TabIndex = 80
Top = 1890
Visible = 0 'False
Width = 495
End
Begin VB.Label Label21
Caption = "00000"
Height = 180
Left = 7380
TabIndex = 79
Top = 1890
Visible = 0 'False
Width = 495
End
Begin VB.Label Label15
Caption = "00000"
Height = 180
Left = 6345
TabIndex = 30
Top = 1890
Visible = 0 'False
Width = 495
End
Begin VB.Line Line125
BorderWidth = 3
X1 = 8955
X2 = 9180
Y1 = 1980
Y2 = 1980
End
Begin VB.Line Line124
BorderWidth = 3
X1 = 8100
X2 = 8865
Y1 = 1980
Y2 = 1980
End
Begin VB.Line Line123
BorderWidth = 3
X1 = 7155
X2 = 8055
Y1 = 1980
Y2 = 1980
End
Begin VB.Line Line122
BorderWidth = 3
X1 = 6030
X2 = 7110
Y1 = 1980
Y2 = 1980
End
Begin VB.Line LineH
BorderColor = &H00000000&
BorderWidth = 3
X1 = 5535
X2 = 6075
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line120
BorderWidth = 3
X1 = 6300
X2 = 5670
Y1 = 1350
Y2 = 1980
End
Begin VB.Line Line119
BorderWidth = 3
X1 = 10620
X2 = 10710
Y1 = 3645
Y2 = 3645
End
Begin VB.Label Label20
Caption = "*To depot*"
Height = 195
Left = 11970
TabIndex = 78
Top = 720
Width = 870
End
Begin VB.Label Label16
Caption = "Ealing Depot"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 7650
TabIndex = 77
Top = 315
Width = 1320
End
Begin VB.Label Label6
Caption = "WM20"
Height = 180
Index = 50
Left = 2790
TabIndex = 76
Top = 2250
Width = 510
End
Begin VB.Image Image58
Height = 240
Left = 3015
Picture = "frmActonTown3.frx":0000
Stretch = -1 'True
Top = 2025
Width = 240
End
Begin VB.Label Label6
Caption = "WM5"
Height = 180
Index = 49
Left = 4860
TabIndex = 75
Top = 1665
Width = 435
End
Begin VB.Image Image57
Height = 240
Left = 5310
Picture = "frmActonTown3.frx":030A
Stretch = -1 'True
Top = 1710
Width = 240
End
Begin VB.Label Label6
Caption = "WM23b"
Height = 180
Index = 48
Left = 5895
TabIndex = 74
Top = 2250
Width = 600
End
Begin VB.Image Image56
Height = 240
Left = 5895
Picture = "frmActonTown3.frx":0614
Stretch = -1 'True
Top = 2025
Width = 240
End
Begin VB.Label Label6
Caption = "WM23a"
Height = 180
Index = 47
Left = 6885
TabIndex = 73
Top = 2250
Width = 600
End
Begin VB.Image Image55
Height = 240
Left = 7065
Picture = "frmActonTown3.frx":091E
Stretch = -1 'True
Top = 2025
Width = 240
End
Begin VB.Label Label6
Caption = "WM230"
Height = 180
Index = 46
Left = 7785
TabIndex = 72
Top = 2250
Width = 600
End
Begin VB.Image Image54
Height = 240
Left = 7920
Picture = "frmActonTown3.frx":0C28
Stretch = -1 'True
Top = 2025
Width = 240
End
Begin VB.Line Line118
BorderColor = &H00000000&
BorderWidth = 3
X1 = 4275
X2 = 3240
Y1 = 1440
Y2 = 1440
End
Begin VB.Label Label6
Caption = "WM4"
Height = 180
Index = 45
Left = 3825
TabIndex = 71
Top = 900
Width = 420
End
Begin VB.Image SigWM4
Height = 240
Left = 4050
Picture = "frmActonTown3.frx":0F32
Stretch = -1 'True
Top = 1125
Width = 240
End
Begin VB.Image SigDepotOutWest
Height = 240
Left = 6975
Picture = "frmActonTown3.frx":123C
Stretch = -1 'True
Top = 765
Width = 240
End
Begin VB.Image SigDepotInWest
Height = 240
Left = 7020
Picture = "frmActonTown3.frx":1546
Stretch = -1 'True
Top = 450
Width = 240
End
Begin VB.Label Label19
Caption = "00000"
Height = 180
Left = 7380
TabIndex = 70
Top = 630
Visible = 0 'False
Width = 495
End
Begin VB.Label Label18
Caption = "00000"
Height = 180
Left = 7380
TabIndex = 69
Top = 1350
Visible = 0 'False
Width = 495
End
Begin VB.Line Line75
BorderColor = &H00000000&
BorderWidth = 3
X1 = 6975
X2 = 8235
Y1 = 720
Y2 = 720
End
Begin VB.Line Line69
BorderWidth = 3
X1 = 4275
X2 = 3060
Y1 = 1980
Y2 = 1980
End
Begin VB.Label Label6
Caption = "WM22"
Height = 180
Index = 44
Left = 3780
TabIndex = 68
Top = 2250
Width = 510
End
Begin VB.Image Image47
Height = 240
Left = 4095
Picture = "frmActonTown3.frx":1850
Stretch = -1 'True
Top = 2025
Width = 240
End
Begin VB.Line Line3
BorderColor = &H00000000&
BorderWidth = 3
X1 = 6075
X2 = 6300
Y1 = 1440
Y2 = 1350
End
Begin VB.Label Label16
Caption = "Ealing Common"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 3015
TabIndex = 67
Top = 495
Width = 1320
End
Begin VB.Line Line117
BorderWidth = 3
X1 = 6570
X2 = 7425
Y1 = 3015
Y2 = 3015
End
Begin VB.Line Line116
BorderWidth = 3
X1 = 6570
X2 = 7425
Y1 = 3645
Y2 = 3645
End
Begin VB.Line Line113
BorderWidth = 3
X1 = 13905
X2 = 14760
Y1 = 3645
Y2 = 3645
End
Begin VB.Line Line66
BorderWidth = 3
X1 = 12900
X2 = 13815
Y1 = 3645
Y2 = 3645
End
Begin VB.Label Label7
Caption = "00000"
Height = 180
Left = 13440
TabIndex = 56
Top = 1335
Visible = 0 'False
Width = 495
End
Begin VB.Label Label9
Caption = "00000"
Height = 180
Left = 13050
TabIndex = 51
Top = 915
Visible = 0 'False
Width = 495
End
Begin VB.Label Label8
Caption = "00000"
Height = 180
Left = 12960
TabIndex = 54
Top = 375
Visible = 0 'False
Width = 495
End
Begin VB.Label LblLW2423
Caption = "00000"
Height = 180
Left = 4590
TabIndex = 61
Top = 1350
Visible = 0 'False
Width = 495
End
Begin VB.Label Label3
Caption = "00000"
Height = 180
Left = 8775
TabIndex = 60
Top = 1350
Visible = 0 'False
Width = 495
End
Begin VB.Label Label4
Caption = "00000"
Height = 180
Index = 0
Left = 9765
TabIndex = 59
Top = 1335
Visible = 0 'False
Width = 495
End
Begin VB.Label Label5
Caption = "00000"
Height = 180
Left = 10845
TabIndex = 38
Top = 1350
Visible = 0 'False
Width = 495
End
Begin VB.Label Label14
Caption = "00000"
Height = 180
Left = 23145
TabIndex = 3
Top = 3540
Visible = 0 'False
Width = 495
End
Begin VB.Label Label13
Caption = "00000"
Height = 180
Left = 22305
TabIndex = 7
Top = 4215
Visible = 0 'False
Width = 495
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H80000003&
BorderStyle = 1 'Fixed Single
Caption = "Platform 2"
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 4365
TabIndex = 66
Top = 975
Width = 855
End
Begin VB.Line LineF
BorderColor = &H00000000&
BorderWidth = 3
X1 = 4320
X2 = 5490
Y1 = 1440
Y2 = 1440
End
Begin VB.Image SigWM5
Height = 240
Left = 5310
Picture = "frmActonTown3.frx":1B5A
Stretch = -1 'True
Top = 1125
Width = 240
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H80000003&
BorderStyle = 1 'Fixed Single
Caption = "Platform 2"
ForeColor = &H80000008&
Height = 255
Index = 1
Left = 4365
TabIndex = 65
Top = 2100
Width = 855
End
Begin VB.Line Line1
BorderWidth = 3
X1 = 4320
X2 = 5940
Y1 = 1980
Y2 = 1980
End
Begin VB.Line LineHH
BorderColor = &H00000000&
BorderWidth = 3
X1 = 6090
X2 = 8550
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line4
BorderColor = &H00000000&
BorderWidth = 3
X1 = 8595
X2 = 9450
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line5
BorderColor = &H00000000&
BorderWidth = 3
X1 = 9495
X2 = 10440
Y1 = 1440
Y2 = 1440
End
Begin VB.Image Image3
Height = 240
Left = 9315
Picture = "frmActonTown3.frx":1E64
Stretch = -1 'True
Top = 1170
Width = 240
End
Begin VB.Label Label6
Caption = "A551"
Height = 180
Index = 5
Left = 8235
TabIndex = 64
Top = 945
Width = 390
End
Begin VB.Label Label6
Caption = "WL103a"
Height = 180
Index = 0
Left = 9135
TabIndex = 63
Top = 945
Width = 690
End
Begin VB.Label Label6
Caption = "WM5 WM7"
Height = 360
Index = 1
Left = 5355
TabIndex = 62
Top = 675
Width = 390
End
Begin VB.Line Line6
BorderColor = &H00000000&
BorderWidth = 3
X1 = 10485
X2 = 11595
Y1 = 1440
Y2 = 1440
End
Begin VB.Image Image4
Height = 240
Left = 10260
Picture = "frmActonTown3.frx":216E
Stretch = -1 'True
Top = 1170
Width = 240
End
Begin VB.Label Label6
Caption = "WL103b"
Height = 180
Index = 2
Left = 10035
TabIndex = 58
Top = 945
Width = 735
End
Begin VB.Line Line7
BorderWidth = 3
X1 = 12735
X2 = 14730
Y1 = 1440
Y2 = 1440
End
Begin VB.Image Image5
Height = 240
Left = 12480
Picture = "frmActonTown3.frx":2478
Stretch = -1 'True
Top = 1170
Width = 240
End
Begin VB.Label Label6
Caption = "WL103c"
Height = 180
Index = 3
Left = 11835
TabIndex = 57
Top = 1125
Width = 645
End
Begin VB.Line Line16
BorderWidth = 3
X1 = 12105
X2 = 14415
Y1 = 1020
Y2 = 1020
End
Begin VB.Line Line9
BorderWidth = 3
X1 = 12840
X2 = 13995
Y1 = 495
Y2 = 495
End
Begin VB.Image Image6
Height = 240
Left = 13785
Picture = "frmActonTown3.frx":2782
Stretch = -1 'True
Top = 180
Width = 240
End
Begin VB.Label Label6
Caption = "WL112b"
Height = 180
Index = 4
Left = 14100
TabIndex = 55
Top = 180
Width = 615
End
Begin VB.Line Line10
BorderWidth = 3
X1 = 14100
X2 = 15360
Y1 = 495
Y2 = 495
End
Begin VB.Image Image7
Height = 240
Left = 10080
Picture = "frmActonTown3.frx":2A8C
Stretch = -1 'True
Top = 1890
Width = 240
End
Begin VB.Label Label6
Caption = "WL112a"
Height = 180
Index = 6
Left = 9750
TabIndex = 53
Top = 1680
Width = 630
End
Begin VB.Image Image8
Height = 240
Left = 15150
Picture = "frmActonTown3.frx":2D96
Stretch = -1 'True
Top = 180
Width = 240
End
Begin VB.Label Label6
Caption = "WL112c"
Height = 180
Index = 7
Left = 15465
TabIndex = 52
Top = 180
Width = 615
End
Begin VB.Image Image9
Height = 240
Left = 14640
Picture = "frmActonTown3.frx":30A0
Stretch = -1 'True
Top = 1575
Width = 240
End
Begin VB.Label Label6
Caption = "WL99"
Height = 180
Index = 8
Left = 14160
TabIndex = 50
Top = 1575
Width = 495
End
Begin VB.Line Line12
BorderWidth = 3
X1 = 14835
X2 = 15570
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line13
BorderWidth = 3
X1 = 14835
X2 = 14415
Y1 = 1440
Y2 = 1020
End
Begin VB.Line Line14
BorderWidth = 3
X1 = 14415
X2 = 14940
Y1 = 1020
Y2 = 1020
End
Begin VB.Line Line17
BorderWidth = 3
X1 = 16305
X2 = 15570
Y1 = 2175
Y2 = 1440
End
Begin VB.Line Line19
BorderWidth = 3
X1 = 14835
X2 = 16410
Y1 = 2175
Y2 = 2175
End
Begin VB.Image Image10
Height = 240
Left = 14640
Picture = "frmActonTown3.frx":33AA
Stretch = -1 'True
Top = 1935
Width = 240
End
Begin VB.Label Label6
Caption = "WL90"
Height = 180
Index = 9
Left = 14160
TabIndex = 49
Top = 1935
Width = 450
End
Begin VB.Line Line20
BorderWidth = 3
X1 = 11580
X2 = 14100
Y1 = 2910
Y2 = 2910
End
Begin VB.Line Line21
BorderWidth = 3
X1 = 14100
X2 = 14835
Y1 = 2910
Y2 = 2175
End
Begin VB.Line Line22
BorderWidth = 3
X1 = 14100
X2 = 14835
Y1 = 2910
Y2 = 3645
End
Begin VB.Image Image11
Height = 240
Left = 13680
Picture = "frmActonTown3.frx":36B4
Stretch = -1 'True
Top = 2280
Width = 240
End
Begin VB.Label Label6
Caption = "WL97b"
Height = 180
Index = 10
Left = 13155
TabIndex = 48
Top = 2280
Width = 525
End
Begin VB.Line Line23
BorderWidth = 3
X1 = 14790
X2 = 11175
Y1 = 2175
Y2 = 2175
End
Begin VB.Line Line24
BorderWidth = 3
X1 = 11160
X2 = 10350
Y1 = 2175
Y2 = 2970
End
Begin VB.Line Line25
BorderWidth = 3
X1 = 15645
X2 = 16410
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line29
BorderWidth = 3
X1 = 15465
X2 = 16410
Y1 = 495
Y2 = 1440
End
Begin VB.Line Line30
X1 = 14940
X2 = 14940
Y1 = 915
Y2 = 1155
End
Begin VB.Line Line31
X1 = 11580
X2 = 11580
Y1 = 2775
Y2 = 3015
End
Begin VB.Image Image14
Height = 240
Left = 13920
Picture = "frmActonTown3.frx":39BE
Stretch = -1 'True
Top = 3015
Width = 240
End
Begin VB.Label Label6
Caption = "WL91"
Height = 180
Index = 13
Left = 13440
TabIndex = 47
Top = 3015
Width = 495
End
Begin VB.Image Image15
Height = 240
Left = 14100
Picture = "frmActonTown3.frx":3CC8
Stretch = -1 'True
Top = 750
Width = 240
End
Begin VB.Label Label6
Caption = "WL116a"
Height = 180
Index = 14
Left = 13470
TabIndex = 46
Top = 705
Width = 615
End
Begin VB.Line Line33
BorderWidth = 3
X1 = 11700
X2 = 12825
Y1 = 3645
Y2 = 3645
End
Begin VB.Line Line34
BorderWidth = 3
X1 = 11520
X2 = 15555
Y1 = 4275
Y2 = 4275
End
Begin VB.Line Line35
BorderWidth = 3
X1 = 12210
X2 = 15570
Y1 = 4920
Y2 = 4920
End
Begin VB.Line Line37
BorderWidth = 3
X1 = 16200
X2 = 15570
Y1 = 3645
Y2 = 4275
End
Begin VB.Line Line38
BorderWidth = 3
X1 = 14805
X2 = 16200
Y1 = 3645
Y2 = 3645
End
Begin VB.Line Line39
BorderWidth = 3
X1 = 15570
X2 = 16200
Y1 = 4905
Y2 = 4275
End
Begin VB.Line Line41
BorderWidth = 3
X1 = 9480
X2 = 8640
Y1 = 3015
Y2 = 3015
End
Begin VB.Line Line42
BorderWidth = 3
X1 = 9585
X2 = 8655
Y1 = 3645
Y2 = 3645
End
Begin VB.Line Line44
BorderWidth = 3
X1 = 12210
X2 = 9270
Y1 = 4920
Y2 = 4920
End
Begin VB.Line Line45
BorderWidth = 3
X1 = 9990
X2 = 6615
Y1 = 4275
Y2 = 4275
End
Begin VB.Label Label6
Caption = "A468"
Height = 180
Index = 21
Left = 9390
TabIndex = 45
Top = 5115
Width = 615
End
Begin VB.Image Image22
Height = 240
Left = 9180
Picture = "frmActonTown3.frx":3FD2
Stretch = -1 'True
Top = 5040
Width = 240
End
Begin VB.Image Image23
Height = 240
Left = 7380
Picture = "frmActonTown3.frx":42DC
Stretch = -1 'True
Top = 2700
Width = 240
End
Begin VB.Label Label6
Caption = "WLX487"
Height = 180
Index = 23
Left = 6705
TabIndex = 44
Top = 3330
Width = 690
End
Begin VB.Image Image24
Height = 240
Left = 7335
Picture = "frmActonTown3.frx":45E6
Stretch = -1 'True
Top = 3330
Width = 240
End
Begin VB.Line Line47
BorderWidth = 3
X1 = 9135
X2 = 6660
Y1 = 4920
Y2 = 4920
End
Begin VB.Line Line48
BorderWidth = 3
X1 = 8520
X2 = 7515
Y1 = 3015
Y2 = 3015
End
Begin VB.Line Line49
BorderWidth = 3
X1 = 8550
X2 = 7500
Y1 = 3645
Y2 = 3645
End
Begin VB.Label Label6
Caption = "A490"
Height = 180
Index = 24
Left = 11805
TabIndex = 43
Top = 3360
Width = 495
End
Begin VB.Image Image25
Height = 240
Left = 11595
Picture = "frmActonTown3.frx":48F0
Stretch = -1 'True
Top = 3375
Width = 240
End
Begin VB.Label Label6
Caption = "WL20"
Height = 180
Index = 25
Left = 13365
TabIndex = 42
Top = 5115
Width = 495
End
Begin VB.Image Image26
Height = 240
Left = 13095
Picture = "frmActonTown3.frx":4BFA
Stretch = -1 'True
Top = 5040
Width = 240
End
Begin VB.Line Line50
BorderWidth = 3
X1 = 11025
X2 = 11595
Y1 = 3645
Y2 = 3645
End
Begin VB.Label Label6
Caption = "WL36"
Height = 180
Index = 26
Left = 13365
TabIndex = 41
Top = 3960
Width = 495
End
Begin VB.Image Image27
Height = 240
Left = 13095
Picture = "frmActonTown3.frx":4F04
Stretch = -1 'True
Top = 4065
Width = 240
End
Begin VB.Line Line55
X1 = 11385
X2 = 11490
Y1 = 4005
Y2 = 4005
End
Begin VB.Line Line57
X1 = 9405
X2 = 9405
Y1 = 2040
Y2 = 1935
End
Begin VB.Line Line58
X1 = 9270
X2 = 9165
Y1 = 2175
Y2 = 2175
End
Begin VB.Line Line59
X1 = 10980
X2 = 10665
Y1 = 1620
Y2 = 1620
End
Begin VB.Line Line60
X1 = 12840
X2 = 12840
Y1 = 390
Y2 = 600
End
Begin VB.Line Line61
X1 = 10650
X2 = 10530
Y1 = 1650
Y2 = 1770
End
Begin VB.Line Line62
X1 = 10980
X2 = 11100
Y1 = 1620
Y2 = 1740
End
Begin VB.Line Line63
X1 = 12840
X2 = 12945
Y1 = 390
Y2 = 285
End
Begin VB.Line Line64
X1 = 12960
X2 = 12840
Y1 = 720
Y2 = 600
End
Begin VB.Line Line65
BorderWidth = 3
X1 = 9945
X2 = 10845
Y1 = 2565
Y2 = 1650
End
Begin VB.Label Label11
Caption = "<- Westbound local to Northfields"
Height = 255
Left = 4095
TabIndex = 40
Top = 4770
Width = 2490
End
Begin VB.Label Label4
Caption = "->Eastbound <- Westbound"
Height = 360
Index = 1
Left = 2385
TabIndex = 39
Top = 1530
Width = 1005
End
Begin VB.Line Line8
X1 = 9270
X2 = 11265
Y1 = 2175
Y2 = 4170
End
Begin VB.Line Line11
X1 = 9405
X2 = 11400
Y1 = 2025
Y2 = 4020
End
Begin VB.Line Line51
X1 = 11250
X2 = 11250
Y1 = 4185
Y2 = 4290
End
Begin VB.Line Line54
BorderWidth = 3
X1 = 9225
X2 = 11430
Y1 = 1980
Y2 = 4185
End
Begin VB.Line Line36
BorderWidth = 3
X1 = 9990
X2 = 10620
Y1 = 4275
Y2 = 3645
End
Begin VB.Line Line56
BorderWidth = 3
X1 = 11430
X2 = 12165
Y1 = 4185
Y2 = 4920
End
Begin VB.Label Label6
Caption = "WLX467"
Height = 180
Index = 39
Left = 6705
TabIndex = 37
Top = 2730
Width = 630
End
Begin VB.Image Image43
Height = 240
Left = 8820
Picture = "frmActonTown3.frx":520E
Stretch = -1 'True
Top = 2025
Width = 240
End
Begin VB.Label Label6
Caption = "WMX558"
Height = 180
Index = 40
Left = 8640
TabIndex = 36
Top = 2250
Width = 690
End
Begin VB.Image Image44
Height = 240
Left = 9495
Picture = "frmActonTown3.frx":5518
Stretch = -1 'True
Top = 3330
Width = 240
End
Begin VB.Label Label6
Caption = "WL97a"
Height = 180
Index = 41
Left = 8970
TabIndex = 35
Top = 3330
Width = 525
End
Begin VB.Image Image45
Height = 240
Left = 8445
Picture = "frmActonTown3.frx":5822
Stretch = -1 'True
Top = 3330
Width = 240
End
Begin VB.Label Label6
Caption = "A491"
Height = 180
Index = 42
Left = 8025
TabIndex = 34
Top = 3330
Width = 405
End
Begin VB.Image Image46
Height = 240
Left = 8445
Picture = "frmActonTown3.frx":5B2C
Stretch = -1 'True
Top = 2700
Width = 240
End
Begin VB.Label Label6
Caption = "A471"
Height = 180
Index = 43
Left = 8655
TabIndex = 33
Top = 2625
Width = 405
End
Begin VB.Line Line43
BorderColor = &H00000000&
BorderWidth = 3
X1 = 6300
X2 = 6930
Y1 = 1350
Y2 = 720
End
Begin VB.Label Label1
Caption = "-> Eastbound fast from Northfields <-Westbound fast to Northfields"
Height = 435
Left = 4365
TabIndex = 32
Top = 3750
Width = 2640
End
Begin VB.Line Line26
BorderStyle = 3 'Dot
X1 = 12000
X2 = 10845
Y1 = 495
Y2 = 1650
End
Begin VB.Line Line68
BorderStyle = 3 'Dot
X1 = 12840
X2 = 12000
Y1 = 495
Y2 = 495
End
Begin VB.Image SigA551
Height = 240
Left = 8325
Picture = "frmActonTown3.frx":5E36
Stretch = -1 'True
Top = 1170
Width = 240
End
Begin VB.Label Label17
Caption = "-> Eastbound local from Northfields"
Height = 255
Left = 3915
TabIndex = 31
Top = 2880
Width = 2490
End
Begin VB.Line Line110
BorderWidth = 3
X1 = 9480
X2 = 9795
Y1 = 3015
Y2 = 2700
End
Begin VB.Line Line111
BorderWidth = 3
X1 = 9690
X2 = 10215
Y1 = 3645
Y2 = 3120
End
Begin VB.Line Line112
BorderWidth = 3
X1 = 9510
X2 = 9615
Y1 = 3645
Y2 = 3645
End
Begin VB.Line Line114
BorderWidth = 3
X1 = 11655
X2 = 12630
Y1 = 1440
Y2 = 1440
End
Begin VB.Image Image51
Height = 240
Left = 21045
Picture = "frmActonTown3.frx":6140
Stretch = -1 'True
Top = 3750
Width = 240
End
Begin VB.Line Line15
BorderWidth = 3
X1 = 16425
X2 = 17160
Y1 = 2175
Y2 = 2175
End
Begin VB.Image Image12
Height = 240
Left = 17085
Picture = "frmActonTown3.frx":644A
Stretch = -1 'True
Top = 1110
Width = 240
End
Begin VB.Label Label6
Caption = "WL109"
Height = 180
Index = 11
Left = 17325
TabIndex = 29
Top = 1095
Width = 615
End
Begin VB.Image Image13
Height = 240
Left = 16965
Picture = "frmActonTown3.frx":6754
Stretch = -1 'True
Top = 1935
Width = 240
End
Begin VB.Label Label6
Caption = "WL89"
Height = 180
Index = 12
Left = 17205
TabIndex = 28
Top = 1935
Width = 495
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H80000003&
BorderStyle = 1 'Fixed Single
Caption = "Platform 4 Platform 3"
ForeColor = &H80000008&
Height = 450
Index = 2
Left = 17685
TabIndex = 27
Top = 1575
Width = 855
End
Begin VB.Line Line27
BorderWidth = 3
X1 = 17265
X2 = 18735
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line28
BorderWidth = 3
X1 = 17265
X2 = 18735
Y1 = 2175
Y2 = 2175
End
Begin VB.Label Label16
Caption = "Acton Town"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 17730
TabIndex = 26
Top = 585
Width = 1095
End
Begin VB.Image Image16
Height = 240
Left = 17325
Picture = "frmActonTown3.frx":6A5E
Stretch = -1 'True
Top = 1575
Width = 240
End
Begin VB.Image Image17
Height = 240
Left = 17325
Picture = "frmActonTown3.frx":6D68
Stretch = -1 'True
Top = 2295
Width = 240
End
Begin VB.Label Label6
Caption = "WL57"
Height = 180
Index = 15
Left = 16845
TabIndex = 25
Top = 1575
Width = 495
End
Begin VB.Label Label6
Caption = "WL56"
Height = 180
Index = 16
Left = 17085
TabIndex = 24
Top = 2535
Width = 495
End
Begin VB.Label Label6
Caption = "WL87"
Height = 180
Index = 17
Left = 18885
TabIndex = 23
Top = 2295
Width = 495
End
Begin VB.Image Image18
Height = 240
Left = 18645
Picture = "frmActonTown3.frx":7072
Stretch = -1 'True
Top = 2295
Width = 240
End
Begin VB.Label Label6
Caption = "WL106"
Height = 180
Index = 18
Left = 18885
TabIndex = 22
Top = 1575
Width = 615
End
Begin VB.Image Image19
Height = 240
Left = 18645
Picture = "frmActonTown3.frx":737C
Stretch = -1 'True
Top = 1575
Width = 240
End
Begin VB.Image Image20
Height = 240
Left = 18645
Picture = "frmActonTown3.frx":7686
Stretch = -1 'True
Top = 1110
Width = 240
End
Begin VB.Image Image21
Height = 240
Left = 18645
Picture = "frmActonTown3.frx":7990
Stretch = -1 'True
Top = 1860
Width = 240
End
Begin VB.Label Label6
Caption = "WL108"
Height = 180
Index = 19
Left = 18045
TabIndex = 21
Top = 1095
Width = 615
End
Begin VB.Label Label6
Caption = "WL88"
Height = 180
Index = 20
Left = 18885
TabIndex = 20
Top = 1860
Width = 495
End
Begin VB.Line Line40
BorderWidth = 3
X1 = 16215
X2 = 18735
Y1 = 4275
Y2 = 4275
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H80000003&
BorderStyle = 1 'Fixed Single
Caption = "Platform 2 Platform 1"
ForeColor = &H80000008&
Height = 450
Index = 3
Left = 17685
TabIndex = 19
Top = 3735
Width = 855
End
Begin VB.Line Line46
BorderWidth = 3
X1 = 16215
X2 = 18735
Y1 = 3645
Y2 = 3645
End
Begin VB.Image Image28
Height = 240
Left = 17325
Picture = "frmActonTown3.frx":7C9A
Stretch = -1 'True
Top = 3705
Width = 240
End
Begin VB.Image Image999
Height = 240
Left = 17325
Picture = "frmActonTown3.frx":7FA4
Stretch = -1 'True
Top = 4050
Width = 240
End
Begin VB.Label Label10
Caption = "WL32 WL34 WL18"
Height = 555
Left = 16845
TabIndex = 18
Top = 3690
Width = 495
End
Begin VB.Image Image29
Height = 240
Left = 18630
Picture = "frmActonTown3.frx":82AE
Stretch = -1 'True
Top = 3750
Width = 240
End
Begin VB.Line Line67
BorderWidth = 3
X1 = 18840
X2 = 19785
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line72
BorderWidth = 3
X1 = 20625
X2 = 21645
Y1 = 3645
Y2 = 3645
End
Begin VB.Line Line73
BorderWidth = 3
X1 = 18840
X2 = 20520
Y1 = 3645
Y2 = 3645
End
Begin VB.Label Label6
Caption = "WL17"
Height = 180
Index = 27
Left = 19125
TabIndex = 17
Top = 4050
Width = 495
End
Begin VB.Image Image30
Height = 240
Left = 18885
Picture = "frmActonTown3.frx":85B8
Stretch = -1 'True
Top = 4050
Width = 240
End
Begin VB.Image Image31
Height = 240
Left = 18885
Picture = "frmActonTown3.frx":88C2
Stretch = -1 'True
Top = 3735
Width = 240
End
Begin VB.Label Label6
Caption = "WL30"
Height = 180
Index = 28
Left = 19125
TabIndex = 16
Top = 3735
Width = 495
End
Begin VB.Line Line77
BorderWidth = 3
X1 = 20625
X2 = 18840
Y1 = 2175
Y2 = 2175
End
Begin VB.Line Line78
BorderWidth = 3
X1 = 19890
X2 = 22725
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line79
BorderWidth = 3
X1 = 20625
X2 = 21360
Y1 = 2175
Y2 = 2910
End
Begin VB.Line Line80
BorderWidth = 3
X1 = 22785
X2 = 20625
Y1 = 2175
Y2 = 2175
End
Begin VB.Line Line81
BorderWidth = 3
X1 = 21360
X2 = 21945
Y1 = 2895
Y2 = 2895
End
Begin VB.Line Line82
BorderWidth = 3
X1 = 21465
X2 = 21885
Y1 = 2910
Y2 = 2490
End
Begin VB.Line Line83
BorderWidth = 3
X1 = 21780
X2 = 22095
Y1 = 2895
Y2 = 3225
End
Begin VB.Line Line84
BorderWidth = 3
X1 = 21885
X2 = 23505
Y1 = 2490
Y2 = 2490
End
Begin VB.Line Line85
BorderWidth = 3
X1 = 21945
X2 = 23505
Y1 = 2895
Y2 = 2895
End
Begin VB.Line Line86
BorderWidth = 3
X1 = 22095
X2 = 23565
Y1 = 3225
Y2 = 3225
End
Begin VB.Line Line87
BorderWidth = 3
X1 = 21885
X2 = 22305
Y1 = 3645
Y2 = 3225
End
Begin VB.Image Image32
Height = 240
Left = 22545
Picture = "frmActonTown3.frx":8BCC
Stretch = -1 'True
Top = 1815
Width = 240
End
Begin VB.Image Image33
Height = 240
Left = 22545
Picture = "frmActonTown3.frx":8ED6
Stretch = -1 'True
Top = 1095
Width = 240
End
Begin VB.Label Label6
Caption = "A619"
Height = 180
Index = 22
Left = 22185
TabIndex = 15
Top = 1815
Width = 375
End
Begin VB.Label Label6
Caption = "A559"
Height = 180
Index = 29
Left = 22185
TabIndex = 14
Top = 1095
Width = 375
End
Begin VB.Line Line88
BorderWidth = 3
X1 = 19575
X2 = 20205
Y1 = 4275
Y2 = 4905
End
Begin VB.Line Line89
BorderWidth = 3
X1 = 19575
X2 = 20205
Y1 = 4905
Y2 = 4275
End
Begin VB.Line Line90
BorderWidth = 3
X1 = 19575
X2 = 20205
Y1 = 4275
Y2 = 4275
End
Begin VB.Line Line92
BorderWidth = 3
X1 = 19530
X2 = 18840
Y1 = 4275
Y2 = 4275
End
Begin VB.Line Line93
BorderWidth = 3
X1 = 19575
X2 = 20205
Y1 = 4905
Y2 = 4905
End
Begin VB.Line Line94
BorderWidth = 3
X1 = 21780
X2 = 21150
Y1 = 3645
Y2 = 4275
End
Begin VB.Line Line96
BorderWidth = 3
X1 = 21150
X2 = 21960
Y1 = 4275
Y2 = 4275
End
Begin VB.Line Line97
BorderWidth = 3
X1 = 21990
X2 = 22905
Y1 = 4275
Y2 = 4275
End
Begin VB.Image Image34
Height = 240
Left = 22185
Picture = "frmActonTown3.frx":91E0
Stretch = -1 'True
Top = 3735
Width = 240
End
Begin VB.Label Label12
Caption = "WL25 WL15"
Height = 375
Left = 21705
TabIndex = 13
Top = 3735
Width = 495
End
Begin VB.Image Image35
Height = 240
Left = 22185
Picture = "frmActonTown3.frx":94EA
Stretch = -1 'True
Top = 4455
Width = 240
End
Begin VB.Label Label6
Caption = "WL12b"
Height = 180
Index = 30
Left = 22410
TabIndex = 12
Top = 4590
Width = 615
End
Begin VB.Image Image36
Height = 240
Left = 23025
Picture = "frmActonTown3.frx":97F4
Stretch = -1 'True
Top = 4455
Width = 240
End
Begin VB.Label Label6
Caption = "WL12a"
Height = 180
Index = 31
Left = 23250
TabIndex = 11
Top = 4590
Width = 615
End
Begin VB.Image Image37
Height = 240
Left = 20910
Picture = "frmActonTown3.frx":9AFE
Stretch = -1 'True
Top = 4455
Width = 240
End
Begin VB.Label Label6
Caption = "WL16"
Height = 180
Index = 32
Left = 20910
TabIndex = 10
Top = 4695
Width = 495
End
Begin VB.Line Line98
X1 = 23505
X2 = 23505
Y1 = 2415
Y2 = 2655
End
Begin VB.Line Line99
X1 = 23505
X2 = 23505
Y1 = 2775
Y2 = 3015
End
Begin VB.Line Line100
X1 = 23565
X2 = 23565
Y1 = 3120
Y2 = 3360
End
Begin VB.Line Line101
BorderWidth = 3
X1 = 23040
X2 = 23760
Y1 = 4275
Y2 = 4275
End
Begin VB.Line Line102
BorderWidth = 3
X1 = 23865
X2 = 24585
Y1 = 4275
Y2 = 4275
End
Begin VB.Image Image38
Height = 240
Left = 23025
Picture = "frmActonTown3.frx":9E08
Stretch = -1 'True
Top = 3735
Width = 240
End
Begin VB.Label Label6
Caption = "WL23"
Height = 180
Index = 33
Left = 23025
TabIndex = 9
Top = 3975
Width = 615
End
Begin VB.Image Image39
Height = 240
Left = 23865
Picture = "frmActonTown3.frx":A112
Stretch = -1 'True
Top = 3735
Width = 240
End
Begin VB.Label Label6
Caption = "A618"
Height = 180
Index = 34
Left = 23865
TabIndex = 8
Top = 3975
Width = 495
End
Begin VB.Line Line103
BorderWidth = 3
X1 = 22185
X2 = 22905
Y1 = 3645
Y2 = 3645
End
Begin VB.Line Line104
BorderWidth = 3
X1 = 23040
X2 = 23760
Y1 = 3645
Y2 = 3645
End
Begin VB.Line Line105
BorderWidth = 3
X1 = 23865
X2 = 24585
Y1 = 3645
Y2 = 3645
End
Begin VB.Image Image40
Height = 240
Left = 23865
Picture = "frmActonTown3.frx":A41C
Stretch = -1 'True
Top = 4455
Width = 240
End
Begin VB.Label Label6
Caption = "A564"
Height = 180
Index = 35
Left = 24090
TabIndex = 6
Top = 4590
Width = 495
End
Begin VB.Image Image41
Height = 240
Left = 24705
Picture = "frmActonTown3.frx":A726
Stretch = -1 'True
Top = 4455
Width = 240
End
Begin VB.Label Label6
Caption = "WLX568"
Height = 180
Index = 36
Left = 24930
TabIndex = 5
Top = 4590
Width = 735
End
Begin VB.Line Line106
BorderWidth = 3
X1 = 24720
X2 = 25440
Y1 = 4275
Y2 = 4275
End
Begin VB.Image Image42
Height = 240
Left = 24705
Picture = "frmActonTown3.frx":AA30
Stretch = -1 'True
Top = 3735
Width = 240
End
Begin VB.Label Label6
Caption = "WLX620"
Height = 180
Index = 37
Left = 24705
TabIndex = 4
Top = 3975
Width = 735
End
Begin VB.Line Line107
BorderWidth = 3
X1 = 24705
X2 = 25425
Y1 = 3645
Y2 = 3645
End
Begin VB.Line Line108
BorderWidth = 3
X1 = 21825
X2 = 22200
Y1 = 3645
Y2 = 3645
End
Begin VB.Line Line95
BorderWidth = 3
X1 = 20310
X2 = 21030
Y1 = 4275
Y2 = 4275
End
Begin VB.Line Line76
BorderWidth = 3
X1 = 19890
X2 = 20625
Y1 = 1440
Y2 = 2175
End
Begin VB.Line Line18
BorderWidth = 3
X1 = 17175
X2 = 16425
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line52
BorderWidth = 3
X1 = 22905
X2 = 23745
Y1 = 2175
Y2 = 2175
End
Begin VB.Line Line53
BorderWidth = 3
X1 = 22830
X2 = 23745
Y1 = 1455
Y2 = 1455
End
Begin VB.Label Label6
Caption = "WL59"
Height = 180
Index = 38
Left = 18315
TabIndex = 2
Top = 3435
Width = 495
End
Begin VB.Line Line70
BorderWidth = 3
X1 = 20520
X2 = 20730
Y1 = 2175
Y2 = 2280
End
Begin VB.Line Line71
BorderWidth = 3
X1 = 20520
X2 = 20730
Y1 = 2070
Y2 = 2175
End
Begin VB.Line Line74
BorderWidth = 3
X1 = 21360
X2 = 20625
Y1 = 2910
Y2 = 3645
End
Begin VB.Line Line2
BorderWidth = 3
X1 = 19575
X2 = 18000
Y1 = 4905
Y2 = 4905
End
Begin VB.Line Line32
BorderWidth = 3
X1 = 20205
X2 = 21360
Y1 = 4905
Y2 = 4905
End
Begin VB.Line Line91
BorderWidth = 3
X1 = 18225
X2 = 22005
Y1 = 5535
Y2 = 5535
End
Begin VB.Line Line109
BorderWidth = 3
X1 = 21360
X2 = 21990
Y1 = 4905
Y2 = 5535
End
Begin VB.Line Line115
BorderWidth = 3
X1 = 21360
X2 = 21990
Y1 = 4905
Y2 = 4905
End
Begin VB.Image Image49
Height = 240
Left = 19260
Picture = "frmActonTown3.frx":AD3A
Stretch = -1 'True
Top = 4590
Width = 240
End
Begin VB.Image Image50
Height = 240
Left = 20940
Picture = "frmActonTown3.frx":B044
Stretch = -1 'True
Top = 5010
Width = 240
End
End
Begin VB.HScrollBar HScroll1
Height = 330
LargeChange = 250
Left = 45
Max = 6000
SmallChange = 100
TabIndex = 0
Top = 6120
Width = 15285
End
Begin MSComctlLib.ImageList ImageList1
Left = 2385
Top = 7020
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = -2147483638
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 9
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmActonTown3.frx":B34E
Key = "GreenRight"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmActonTown3.frx":B668
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmActonTown3.frx":B982
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmActonTown3.frx":BC9C
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmActonTown3.frx":BFB6
Key = "GreenLeft"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmActonTown3.frx":C2D0
Key = "RedRight"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmActonTown3.frx":C5EA
Key = "RedLeft"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmActonTown3.frx":C904
Key = "goshunt"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmActonTown3.frx":CC1E
Key = "stopshunt"
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmsimulation"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''give pictures a constant name
Dim GreenRight
Dim GreenLeft
Dim RedRight
Dim RedLeft
Dim GoShunt
Dim StopShunt
Dim RedGoShunt
Dim GreenStopShunt
Dim RedStopShunt
Dim BothStop
Dim Platform1
Dim Platform2
Dim RouteLock As Boolean ''used for locking routesetting when a routesetting operation is already going
Public Sub wm4wm5(status As String)
Select Case status
Case "Black"
LineF.BorderColor = vbBlack
SigWM4.Picture = ImageList1.ListImages(RedLeft).Picture
SigWM4.BorderStyle = 0
Case "Red"
LineF.BorderColor = vbRed
SigWM4.Picture = ImageList1.ListImages(RedLeft).Picture
SigWM4.BorderStyle = 0
Case "Blue"
LineF.BorderColor = vbBlue
SigWM4.Picture = ImageList1.ListImages(GreenLeft).Picture
SigWM4.BorderStyle = 0
End Select
End Sub
Public Sub WM5Depot(status As String)
Select Case status
Case "Black"
LineH.BorderColor = vbBlack
Line3.BorderColor = vbBlack
Line43.BorderColor = vbBlack
SigWM5.Picture = ImageList1.ListImages(RedStopShunt).Picture
SigWM5.BorderStyle = 0
SigDepotInWest.BorderStyle = 0
Case "Red"
LineH.BorderColor = vbRed
Line3.BorderColor = vbRed
Line43.BorderColor = vbRed
SigWM5.Picture = ImageList1.ListImages(RedStopShunt).Picture
SigWM5.BorderStyle = 0
SigDepotInWest.BorderStyle = 0
Case "Blue"
LineH.BorderColor = vbBlue
Line3.BorderColor = vbBlue
Line43.BorderColor = vbBlue
SigWM5.Picture = ImageList1.ListImages(RedGoShunt).Picture
SigWM5.BorderStyle = 0
SigDepotInWest.BorderStyle = 0
End Select
End Sub
Private Sub Form_Load()
Me.Icon = MDIForm1.Icon
''give the icons from the imagelist control a name
GreenRight = 1
RedGoShunt = 2
GreenStopShunt = 3
RedStopShunt = 4
GreenLeft = 5
RedRight = 6
RedLeft = 7
GoShunt = 8
StopShunt = 9
RouteLock = False
LineF.BorderColor = vbBlack
'SigWL1b.Picture = ImageList1.ListImages(RedLeft).Picture
'sigWL1c.Picture = ImageList1.ListImages(RedLeft).Picture
'sigWL2.Picture = ImageList1.ListImages(RedLeft).Picture
'SigWL2b.Picture = ImageList1.ListImages(RedLeft).Picture
'sigWL2c.Picture = ImageList1.ListImages(RedLeft).Picture
End Sub
Private Sub Form_Resize()
HScroll1.Max = Frame1.Width - Me.Width
HScroll1.Width = Me.Width - 190
End Sub
Private Sub Frame1_DblClick()
Frame1.Width = 30000
End Sub
Private Sub HScroll1_Change()
Frame1.Left = -2205 - HScroll1.Value
End Sub
Private Sub Image48_Click()
End Sub
Private Sub SigDepotInWest_Click()
If SigDepotInWest.BorderStyle = 0 And RouteLock = False Then
''start routesetting
SigDepotInWest.BorderStyle = 1
RouteLock = True
Exit Sub
ElseIf SigDepotInWest.BorderStyle = 1 And RouteLock = True Then
''cancel routesetting
SigDepotInWest.BorderStyle = 0
RouteLock = False
ElseIf SigDepotInWest.BorderStyle = 0 And RouteLock = True Then
If SigWM5.BorderStyle = 1 Then
WM5Depot "Blue"
ElseIf SigWM5.BorderStyle = 0 Then
''cancel route
RouteLock = False
WM5Depot "black"
End If
RouteLock = False
End If
End Sub
Private Sub SigWM4_Click()
If SigWM4.BorderStyle = 0 And RouteLock = False And LineF.BorderColor = vbBlack Then
''start routesetting
SigWM4.BorderStyle = 1
RouteLock = True
ElseIf SigWM4.BorderStyle = 1 And RouteLock = True Then
''cancel routesetting
SigWM4.BorderStyle = 0
RouteLock = False
ElseIf SigWM4.BorderStyle = 0 And RouteLock = True Then
''cancel route
'SigWM4.BorderStyle = 1
RouteLock = False
If SigWM5.BorderStyle = 1 Then
wm4wm5 "Black"
SigWM5.BorderStyle = 0
End If
End If
End Sub
Private Sub SigWM5_Click()
If SigWM5.BorderStyle = 0 And RouteLock = False Then
''start routesetting
SigWM5.BorderStyle = 1
RouteLock = True
Exit Sub
ElseIf SigWM5.BorderStyle = 1 And RouteLock = True Then
''cancel routesetting
SigWM5.BorderStyle = 0
RouteLock = False
ElseIf SigWM5.BorderStyle = 0 And RouteLock = True Then
If SigWM4.BorderStyle = 1 Then
''set route from previous signal
wm4wm5 "Blue"
RouteLock = False
ElseIf SigDepotInWest.BorderStyle = 1 Then
''cancel route from next signal
WM5Depot "Black"
RouteLock = False
' ElseIf SigWM4.BorderStyle = 0 Then
' ''cancel route from previous signal
' wm4wm5 "black"
End If
End If
End Sub