Partial Class Form1 Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Private Sub InitializeComponent() mail = New Button() cardInfo = New Button() plus = New Button() currentStop = New Button() zone = New Button() currentStopBack = New Button() zoneBack = New Button() currentStopForward = New Button() zoneForward = New Button() otherTickets = New Button() group = New Button() zone23 = New Button() free = New Button() zone13 = New Button() zone3 = New Button() aloneticket = New Button() lineAndTime = New TextBox() driverName = New TextBox() delay = New TextBox() scanTicket = New Button() regTime = New TextBox() SuspendLayout() ' ' mail ' mail.BackColor = SystemColors.HotTrack mail.Font = New Font("Segoe UI", 27.75F, FontStyle.Bold, GraphicsUnit.Point) mail.ForeColor = SystemColors.ButtonHighlight mail.Location = New Point(12, 12) mail.Name = "mail" mail.Size = New Size(113, 62) mail.TabIndex = 0 mail.Text = "✉" mail.UseVisualStyleBackColor = False ' ' cardInfo ' cardInfo.BackColor = SystemColors.HotTrack cardInfo.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point) cardInfo.ForeColor = SystemColors.ButtonHighlight cardInfo.Location = New Point(122, 12) cardInfo.Name = "cardInfo" cardInfo.Size = New Size(322, 62) cardInfo.TabIndex = 1 cardInfo.Text = "Kaardi info" cardInfo.UseVisualStyleBackColor = False ' ' plus ' plus.BackColor = SystemColors.HotTrack plus.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point) plus.ForeColor = SystemColors.ButtonHighlight plus.Location = New Point(440, 12) plus.Name = "plus" plus.Size = New Size(348, 62) plus.TabIndex = 2 plus.Text = "+" plus.UseVisualStyleBackColor = False ' ' currentStop ' currentStop.BackColor = Color.OliveDrab currentStop.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point) currentStop.ForeColor = SystemColors.ButtonHighlight currentStop.Location = New Point(372, 92) currentStop.Name = "currentStop" currentStop.Size = New Size(346, 62) currentStop.TabIndex = 3 currentStop.Text = "Neeme (Harju 3)" currentStop.UseVisualStyleBackColor = False ' ' zone ' zone.BackColor = SystemColors.HotTrack zone.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point) zone.ForeColor = SystemColors.ButtonHighlight zone.Location = New Point(372, 160) zone.Name = "zone" zone.Size = New Size(346, 62) zone.TabIndex = 4 zone.Text = "Harju 1" zone.UseVisualStyleBackColor = False ' ' currentStopBack ' currentStopBack.BackColor = SystemColors.ButtonShadow currentStopBack.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point) currentStopBack.ForeColor = SystemColors.ButtonHighlight currentStopBack.Location = New Point(324, 92) currentStopBack.Name = "currentStopBack" currentStopBack.Size = New Size(42, 62) currentStopBack.TabIndex = 5 currentStopBack.Text = "<" currentStopBack.UseVisualStyleBackColor = False ' ' zoneBack ' zoneBack.BackColor = SystemColors.HotTrack zoneBack.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point) zoneBack.ForeColor = SystemColors.ButtonHighlight zoneBack.Location = New Point(324, 160) zoneBack.Name = "zoneBack" zoneBack.Size = New Size(42, 62) zoneBack.TabIndex = 6 zoneBack.Text = "<" zoneBack.UseVisualStyleBackColor = False ' ' currentStopForward ' currentStopForward.BackColor = SystemColors.ButtonShadow currentStopForward.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point) currentStopForward.ForeColor = SystemColors.ButtonHighlight currentStopForward.Location = New Point(724, 92) currentStopForward.Name = "currentStopForward" currentStopForward.Size = New Size(42, 62) currentStopForward.TabIndex = 7 currentStopForward.Text = ">" currentStopForward.UseVisualStyleBackColor = False ' ' zoneForward ' zoneForward.BackColor = SystemColors.ButtonShadow zoneForward.Font = New Font("Segoe UI", 12F, FontStyle.Bold, GraphicsUnit.Point) zoneForward.ForeColor = SystemColors.ButtonHighlight zoneForward.Location = New Point(724, 160) zoneForward.Name = "zoneForward" zoneForward.Size = New Size(42, 62) zoneForward.TabIndex = 8 zoneForward.Text = ">" zoneForward.UseVisualStyleBackColor = False ' ' otherTickets ' otherTickets.BackColor = SystemColors.HotTrack otherTickets.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point) otherTickets.ForeColor = SystemColors.ButtonHighlight otherTickets.Location = New Point(608, 317) otherTickets.Name = "otherTickets" otherTickets.Size = New Size(180, 121) otherTickets.TabIndex = 9 otherTickets.Text = "Teised Piletid" otherTickets.UseVisualStyleBackColor = False ' ' group ' group.BackColor = SystemColors.HotTrack group.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point) group.ForeColor = SystemColors.ButtonHighlight group.Location = New Point(423, 379) group.Name = "group" group.Size = New Size(179, 59) group.TabIndex = 10 group.Text = "Grupipilet" group.UseVisualStyleBackColor = False ' ' zone23 ' zone23.BackColor = SystemColors.HotTrack zone23.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point) zone23.ForeColor = SystemColors.ButtonHighlight zone23.Location = New Point(423, 317) zone23.Name = "zone23" zone23.Size = New Size(179, 56) zone23.TabIndex = 11 zone23.Text = "2.-3. tsoon" & vbCrLf & " 2.00 EUR" zone23.UseVisualStyleBackColor = False ' ' free ' free.BackColor = SystemColors.HotTrack free.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point) free.ForeColor = SystemColors.ButtonHighlight free.Location = New Point(225, 317) free.Name = "free" free.Size = New Size(192, 56) free.TabIndex = 13 free.Text = " Tasuta" & vbCrLf & "0.00 EUR" free.UseVisualStyleBackColor = False ' ' zone13 ' zone13.BackColor = SystemColors.HotTrack zone13.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point) zone13.ForeColor = SystemColors.ButtonHighlight zone13.Location = New Point(225, 379) zone13.Name = "zone13" zone13.Size = New Size(192, 59) zone13.TabIndex = 12 zone13.Text = "1.-3. tsoon" & vbCrLf & " 2.90 EUR" zone13.UseVisualStyleBackColor = False ' ' zone3 ' zone3.BackColor = SystemColors.HotTrack zone3.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point) zone3.ForeColor = SystemColors.ButtonHighlight zone3.Location = New Point(12, 317) zone3.Name = "zone3" zone3.Size = New Size(207, 56) zone3.TabIndex = 15 zone3.Text = "3. tsoon" & vbCrLf & "1.10 EUR" zone3.UseVisualStyleBackColor = False ' ' aloneticket ' aloneticket.BackColor = SystemColors.HotTrack aloneticket.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point) aloneticket.ForeColor = SystemColors.ButtonHighlight aloneticket.Location = New Point(12, 379) aloneticket.Name = "aloneticket" aloneticket.Size = New Size(207, 59) aloneticket.TabIndex = 14 aloneticket.Text = "Üksikpilet" & vbCrLf & " 2.90 EUR" aloneticket.UseVisualStyleBackColor = False ' ' lineAndTime ' lineAndTime.BackColor = SystemColors.MenuText lineAndTime.BorderStyle = BorderStyle.None lineAndTime.Font = New Font("Segoe UI", 15.75F, FontStyle.Regular, GraphicsUnit.Point) lineAndTime.ForeColor = SystemColors.Window lineAndTime.Location = New Point(12, 80) lineAndTime.Name = "lineAndTime" lineAndTime.Size = New Size(194, 28) lineAndTime.TabIndex = 16 ' ' driverName ' driverName.BackColor = SystemColors.MenuText driverName.BorderStyle = BorderStyle.None driverName.ForeColor = SystemColors.Window driverName.Location = New Point(12, 131) driverName.Name = "driverName" driverName.Size = New Size(156, 16) driverName.TabIndex = 17 ' ' delay ' delay.BackColor = SystemColors.MenuText delay.BorderStyle = BorderStyle.None delay.ForeColor = SystemColors.Window delay.Location = New Point(244, 131) delay.Name = "delay" delay.Size = New Size(74, 16) delay.TabIndex = 18 ' ' scanTicket ' scanTicket.BackColor = Color.Red scanTicket.Font = New Font("Segoe UI", 12F, FontStyle.Regular, GraphicsUnit.Point) scanTicket.ForeColor = SystemColors.ButtonHighlight scanTicket.Location = New Point(12, 170) scanTicket.Name = "scanTicket" scanTicket.Size = New Size(180, 52) scanTicket.TabIndex = 19 scanTicket.Text = "SCAN" scanTicket.UseVisualStyleBackColor = False ' ' regTime ' regTime.BackColor = SystemColors.MenuText regTime.BorderStyle = BorderStyle.None regTime.Font = New Font("Segoe UI", 15.75F, FontStyle.Regular, GraphicsUnit.Point) regTime.ForeColor = SystemColors.Window regTime.Location = New Point(212, 80) regTime.Name = "regTime" regTime.Size = New Size(106, 28) regTime.TabIndex = 20 ' ' Form1 ' AutoScaleDimensions = New SizeF(7F, 15F) AutoScaleMode = AutoScaleMode.Font BackColor = SystemColors.ActiveCaptionText ClientSize = New Size(800, 450) Controls.Add(regTime) Controls.Add(scanTicket) Controls.Add(delay) Controls.Add(driverName) Controls.Add(lineAndTime) Controls.Add(zone3) Controls.Add(aloneticket) Controls.Add(free) Controls.Add(zone13) Controls.Add(zone23) Controls.Add(group) Controls.Add(otherTickets) Controls.Add(zoneForward) Controls.Add(currentStopForward) Controls.Add(zoneBack) Controls.Add(currentStopBack) Controls.Add(zone) Controls.Add(currentStop) Controls.Add(plus) Controls.Add(cardInfo) Controls.Add(mail) Name = "Form1" Text = "bus driver thingy" ResumeLayout(False) PerformLayout() End Sub Friend WithEvents mail As Button Friend WithEvents cardInfo As Button Friend WithEvents plus As Button Friend WithEvents currentStop As Button Friend WithEvents zone As Button Friend WithEvents currentStopBack As Button Friend WithEvents zoneBack As Button Friend WithEvents currentStopForward As Button Friend WithEvents zoneForward As Button Friend WithEvents otherTickets As Button Friend WithEvents group As Button Friend WithEvents zone23 As Button Friend WithEvents free As Button Friend WithEvents zone13 As Button Friend WithEvents zone3 As Button Friend WithEvents aloneticket As Button Friend WithEvents lineAndTime As TextBox Friend WithEvents driverName As TextBox Friend WithEvents delay As TextBox Friend WithEvents scanTicket As Button Friend WithEvents regTime As TextBox End Class