README update

.gitignore

@@ -177,7 +177,7 @@ DocProject/Help/Html2
 DocProject/Help/html
 
 # Click-Once directory
-publish/
+#publish/
 
 # Publish Web Output
 *.[Pp]ublish.xml

App.config

@@ -11,7 +11,7 @@
     <userSettings>
         <TPS1100_Convert.My.MySettings>
             <setting name="ZadnjaMapa" serializeAs="String">
-                <value>C:\</value>
+                <value />
             </setting>
             <setting name="DecimalnoLocilo" serializeAs="String">
                 <value>Pika</value>
@@ -25,6 +25,57 @@
             <setting name="Stolpci" serializeAs="String">
                 <value>0</value>
             </setting>
+            <setting name="DatLogfile" serializeAs="String">
+                <value />
+            </setting>
+            <setting name="MapaShrani" serializeAs="String">
+                <value />
+            </setting>
+            <setting name="KodaQuickSet" serializeAs="String">
+                <value>10</value>
+            </setting>
+            <setting name="KodaSetAzi" serializeAs="String">
+                <value>20</value>
+            </setting>
+            <setting name="KodaResection" serializeAs="String">
+                <value>30</value>
+            </setting>
+            <setting name="KodaFreeStation" serializeAs="String">
+                <value>40</value>
+            </setting>
+            <setting name="KodaOriHtTrans" serializeAs="String">
+                <value>50</value>
+            </setting>
+            <setting name="KodaMeasOri" serializeAs="String">
+                <value>80</value>
+            </setting>
+            <setting name="KodaMeas" serializeAs="String">
+                <value>90</value>
+            </setting>
+            <setting name="KodaStake" serializeAs="String">
+                <value>91</value>
+            </setting>
+            <setting name="KodaUserImport" serializeAs="String">
+                <value>99</value>
+            </setting>
+            <setting name="KodaStojisce" serializeAs="String">
+                <value>1</value>
+            </setting>
+            <setting name="KodaStojisceInfo" serializeAs="String">
+                <value>2</value>
+            </setting>
+            <setting name="Pisava" serializeAs="String">
+                <value />
+            </setting>
+            <setting name="KodaStojisceOri" serializeAs="String">
+                <value>3</value>
+            </setting>
+            <setting name="Projekt" serializeAs="String">
+                <value>Virtualna Kartica</value>
+            </setting>
+            <setting name="ProjektMapa" serializeAs="String">
+                <value>Virtualna Kartica\GSI</value>
+            </setting>
         </TPS1100_Convert.My.MySettings>
     </userSettings>
 </configuration>

CHANGELOG.md

@@ -0,0 +1,206 @@
+# TPS1100 Convert: Zapisnik Razvoja
+
+Zapisnik razvoja programa TPS1100 Convert.
+
+
+---
+
+## Verzija - 2.8.0.2 (Release)
+
+Datum: 2024/07/24
+
+### Popravki:
+
+- V oknu "Projekti" je popravljena ponastavitev vrednosti za izbran Job pri izbiri drugega projekt-a
+
+### Novo/Dodano:
+
+- Dodana funkcija in UI dialog za uvoz podatkov iz PC-kartice (DialogKartica)
+- Dodana funkcija za uvoz projektov, ki so v mapi "/Projekti"
+- Dodane funkcije za brisanje in arhiviranje projektov in jobov v oknu "Projekti"
+- **Orodja -> PC-Kartica -> Priprava Kartice...** (DialogPripravaKartice)
+    + Dodana geoida SLO1.gem in SLOG200.gem v pripravi kartice
+
+### Razvoj/Priprave:
+
+- Priprava funkcije in UI-ja za izračun podatkov meritve med dvema točkama (FormIzracunMeasure)
+- Delo na funkciji za izračun orientacije
+
+---
+
+## v2.8.0.1 - Release
+
+ Datum: 2024/07/19
+
+- Popravljen izris grafike
+- Popravki izvoza seznama točk
+- Spremembe in popravki UI
+    - Glavnega meni aplikacije
+	- Indikatorji za trenutni projekt in odprto GSI datoteko presstavljena v novo vrstico
+	- Dodani razni meniji za nove funkcije
+- Dopoljnjen UI za Projekte
+- Dodan UI za nalaganje Job-a (Gumb: Odpri Job)
+- Dodane funkcije za uvoz in nalaganje GSI joba iz menuja "Projekti..."
+- Dodana funkcija za pripravo/formatiranje PC-kartice (kopira pred-pripravljene podatke iz Virtualna Kartica)
+- Dodana funkcija za zavarovanje kartice v mapo "\Zavarovanja\..."
+- Dodana funkcija za izračun orientacijskega kota (Azi = Hz + HzCor)
+- Pripravljen UI za izračun meritve iz koordinat stojišča in merjene točke
+- Popravki pri preverjanju za posodobitve
+
+
+---
+
+
+## v2.8.0.0 (2024/07/03) - Release Candidate
+
+- Inteegracija projektov (Virtualna Kartica/Projekti)
+    - Priprava okna za urejanje projektov
+	- Dodana nastavitev My.Setting.Projekt (Privzeta vrednost: "Virtualna Kartica")
+	- Dodana nastavitev My.Setting.ProjektMapa (Privzeta vrednost: "\Virtualna Kartica")
+	- Dodana mapa "Virtualna Kartica" (Struktura mape kot na PC-Kartici)
+	- Dodana mapa "Projekti" za posebne projekte
+    - Preureditev podatkov v mapi ../Podatki
+	- Datoteke GSI se pred procesiranjem kopirajo v delovni projekt
+    	- Izvorne datoteke izven delovne mape ostanejo originalne
+	- Pregled GSI jobov v projektih in nalaganje za procesiranje v TPS1100 Convert
+- Dodana funkcija za uvoz GSI joba v delovni projekt
+- Posodobljen izgled UI
+- Popravki delovanja priprave GEO skripte in Zapisnika
+    - Dodane funkcije za pripravo podatkov za stojišča
+
+
+---
+
+
+## v2.7.1.0 (2024/07/03)
+
+- Idejna zasnova za razvoj "Virtualna Kartica/Projekti"
+
+
+---
+
+
+## v2.7.0.9 (2024/06/29)
+
+- Popravki nalaganja nastavitev iz datoteke "tps1100_kode.txt" pri zagonu aplikacije
+- Popravki delovanja shranjevanja nastavitev v oknu za nastavitve
+
+
+---
+
+
+## v2.7.0.8 (2024/06/26)
+
+- Preverjanje za posodobitev aplikacije
+- Popravljeno branje decimalnega ločila v "Pripravi GSI".
+
+
+---
+
+
+## v2.7.0.5 (2024/06/26)
+
+### Novo
+
+- Dodan gumb za hiter pomik na začetek izpisa
+- Uvoz/Priprava datoteke z kodiranjem "tps1100_kode.txt" pri zagonu
+
+
+---
+
+## v2.7.0.4 (2024/06/25)
+
+### Novo
+
+- Dodano preverjanje za posodobitve
+
+
+---
+
+## v2.7.0.3 (2024/06/20)
+
+### Novo
+
+- Dodane funkcije za uvoz, izvoz in ponastavitev kodiranja podatkov v nastavitvah
+
+
+---
+
+## v2.7.0.0 (2024/06/20)
+
+### Novo
+
+- Priprava GEO datoteke za obdelavo meritev v programu GeoPro/GeoX
+- Dodano izpisovanje klasifikacije točk uporabljenih za orientacijo (Seznamu točk)
+- Dodane kode za ročni vnos podatkov:
+	- (koda: 1) stojišče
+	- (koda: 2) temperatura in zračni pritisk pritisk
+	- (koda: 3) orientacije
+
+
+### Spremembe
+
+- Dodana vrstica z meniji Datoteka in Program
+- Posodobljen vmesnik v glavnem oknu aplikacije
+- Funkcije Info, Navodila in Nastavitve so prestavljene v vrstico z meniji
+- Sprememnjen način prikazovanja polj za ročni vnos podatkov za stojišče, temp./pritisk in orientacijo (Urejevalnik GSI datotek)
+- Odstranjena koda za "StakeOut" (ni uporabna)
+
+
+### V Delu
+
+- Delo na dokumentaciji:
+	- Navodila za uporabo programa
+	- Kodiranje podatkov (uporaba in opis kod)
+
+
+---
+
+## Verzija - 2.6.x
+
+Datum: 2024/06/13
+
+- Dodane koda za orientacije in podatke o stojišču
+
+---
+
+## Verzija - 2.5.x
+
+Datum: 2024/06/10
+
+- Dodan menu z nastavitvami
+
+---
+
+## Verzija - 2.4
+
+Datum: 2024/06/03
+
+- Dodan urejevalnik GSI datotek
+- Dodana opcija za izbiro decimalnega ločila (Pika/Vejica)
+- Dodana opcija za izbiro ločila med podatki (Presledek/Tabulator)
+- Izpis zapisnika meritev kot tabela
+
+---
+
+## Verzija - 2.1
+
+Datum: 2018/12/27
+
+- Združen izpis seznama koordinat točk (Merjene Točke + Vse Točke)
+
+---
+
+## Verzija - 2.0
+
+Datum: 2018/12/27
+
+- Dodano izpisovanje kodiranja v "Zapisnik Meritve"
+
+---
+
+## Verzija - 1.0
+
+Datum: 2016/06/26
+
+- Prva izdaja programa

DialogIzracunHzCor.Designer.vb

@@ -0,0 +1,452 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class DialogIzracunHzCor
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DialogIzracunHzCor))
+        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+        Me.OK_Button = New System.Windows.Forms.Button()
+        Me.Cancel_Button = New System.Windows.Forms.Button()
+        Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.MaskedTextBoxDegHzCor = New System.Windows.Forms.MaskedTextBox()
+        Me.MaskedTextBoxDegHz = New System.Windows.Forms.MaskedTextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.MaskedTextBoxGsiHz = New System.Windows.Forms.MaskedTextBox()
+        Me.MaskedTextBoxGsiHzCor = New System.Windows.Forms.MaskedTextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.ButtonUpGsi = New System.Windows.Forms.Button()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.ButtonIzr = New System.Windows.Forms.Button()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.MaskedTextBoxHzNov = New System.Windows.Forms.MaskedTextBox()
+        Me.MaskedTextBoxHzNovDms = New System.Windows.Forms.MaskedTextBox()
+        Me.MaskedTextBoxGsiHzNov = New System.Windows.Forms.MaskedTextBox()
+        Me.ButtonKopirajHzTxt = New System.Windows.Forms.Button()
+        Me.ButtonKopirajHzGsi = New System.Windows.Forms.Button()
+        Me.TableLayoutPanel1.SuspendLayout()
+        Me.TableLayoutPanel2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'TableLayoutPanel1
+        '
+        Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TableLayoutPanel1.ColumnCount = 2
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+        Me.TableLayoutPanel1.Location = New System.Drawing.Point(456, 219)
+        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+        Me.TableLayoutPanel1.RowCount = 1
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.Size = New System.Drawing.Size(187, 45)
+        Me.TableLayoutPanel1.TabIndex = 0
+        '
+        'OK_Button
+        '
+        Me.OK_Button.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.OK_Button.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.OK_Button.FlatAppearance.BorderSize = 0
+        Me.OK_Button.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.OK_Button.Location = New System.Drawing.Point(3, 3)
+        Me.OK_Button.Name = "OK_Button"
+        Me.OK_Button.Size = New System.Drawing.Size(87, 39)
+        Me.OK_Button.TabIndex = 13
+        Me.OK_Button.Text = "Pomoč"
+        '
+        'Cancel_Button
+        '
+        Me.Cancel_Button.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Cancel_Button.FlatAppearance.BorderSize = 0
+        Me.Cancel_Button.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Cancel_Button.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_24
+        Me.Cancel_Button.Location = New System.Drawing.Point(96, 3)
+        Me.Cancel_Button.Name = "Cancel_Button"
+        Me.Cancel_Button.Size = New System.Drawing.Size(88, 39)
+        Me.Cancel_Button.TabIndex = 14
+        Me.Cancel_Button.Text = "Zapri"
+        Me.Cancel_Button.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
+        '
+        'TableLayoutPanel2
+        '
+        Me.TableLayoutPanel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.TableLayoutPanel2.ColumnCount = 4
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 40.0!))
+        Me.TableLayoutPanel2.Controls.Add(Me.Label4, 2, 0)
+        Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxDegHzCor, 1, 2)
+        Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxDegHz, 1, 1)
+        Me.TableLayoutPanel2.Controls.Add(Me.Label2, 0, 2)
+        Me.TableLayoutPanel2.Controls.Add(Me.Label1, 0, 1)
+        Me.TableLayoutPanel2.Controls.Add(Me.Label5, 1, 0)
+        Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxGsiHz, 3, 1)
+        Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxGsiHzCor, 3, 2)
+        Me.TableLayoutPanel2.Controls.Add(Me.Label9, 3, 0)
+        Me.TableLayoutPanel2.Controls.Add(Me.TextBox1, 2, 1)
+        Me.TableLayoutPanel2.Controls.Add(Me.TextBox2, 2, 2)
+        Me.TableLayoutPanel2.Controls.Add(Me.Label3, 0, 4)
+        Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxHzNov, 1, 4)
+        Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxHzNovDms, 2, 4)
+        Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxGsiHzNov, 3, 4)
+        Me.TableLayoutPanel2.Controls.Add(Me.ButtonKopirajHzTxt, 2, 5)
+        Me.TableLayoutPanel2.Controls.Add(Me.ButtonKopirajHzGsi, 3, 5)
+        Me.TableLayoutPanel2.Controls.Add(Me.ButtonUpGsi, 3, 3)
+        Me.TableLayoutPanel2.Controls.Add(Me.ButtonIzr, 1, 3)
+        Me.TableLayoutPanel2.Location = New System.Drawing.Point(13, 13)
+        Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
+        Me.TableLayoutPanel2.RowCount = 7
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 18.0!))
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 32.0!))
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 32.0!))
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 40.0!))
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 32.0!))
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 32.0!))
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle())
+        Me.TableLayoutPanel2.Size = New System.Drawing.Size(630, 200)
+        Me.TableLayoutPanel2.TabIndex = 1
+        '
+        'Label4
+        '
+        Me.Label4.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label4.Location = New System.Drawing.Point(255, 0)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(120, 18)
+        Me.Label4.TabIndex = 10
+        Me.Label4.Text = "Format DMS [D.MMSS]"
+        Me.Label4.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        '
+        'MaskedTextBoxDegHzCor
+        '
+        Me.MaskedTextBoxDegHzCor.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MaskedTextBoxDegHzCor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.MaskedTextBoxDegHzCor.Enabled = False
+        Me.MaskedTextBoxDegHzCor.Font = New System.Drawing.Font("Lucida Console", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MaskedTextBoxDegHzCor.Location = New System.Drawing.Point(131, 55)
+        Me.MaskedTextBoxDegHzCor.Margin = New System.Windows.Forms.Padding(5)
+        Me.MaskedTextBoxDegHzCor.Name = "MaskedTextBoxDegHzCor"
+        Me.MaskedTextBoxDegHzCor.Size = New System.Drawing.Size(116, 20)
+        Me.MaskedTextBoxDegHzCor.TabIndex = 6
+        '
+        'MaskedTextBoxDegHz
+        '
+        Me.MaskedTextBoxDegHz.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MaskedTextBoxDegHz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.MaskedTextBoxDegHz.Enabled = False
+        Me.MaskedTextBoxDegHz.Font = New System.Drawing.Font("Lucida Console", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MaskedTextBoxDegHz.Location = New System.Drawing.Point(131, 23)
+        Me.MaskedTextBoxDegHz.Margin = New System.Windows.Forms.Padding(5)
+        Me.MaskedTextBoxDegHz.Name = "MaskedTextBoxDegHz"
+        Me.MaskedTextBoxDegHz.Size = New System.Drawing.Size(116, 20)
+        Me.MaskedTextBoxDegHz.TabIndex = 5
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label2.Location = New System.Drawing.Point(3, 50)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(120, 32)
+        Me.Label2.TabIndex = 1
+        Me.Label2.Text = "Popavek (HzCor)"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.Location = New System.Drawing.Point(3, 18)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(120, 32)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Merjen (Hz)"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label5
+        '
+        Me.Label5.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label5.Location = New System.Drawing.Point(129, 0)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(120, 18)
+        Me.Label5.TabIndex = 15
+        Me.Label5.Text = "Format DEG"
+        Me.Label5.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        '
+        'MaskedTextBoxGsiHz
+        '
+        Me.MaskedTextBoxGsiHz.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MaskedTextBoxGsiHz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.MaskedTextBoxGsiHz.Font = New System.Drawing.Font("Lucida Console", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MaskedTextBoxGsiHz.Location = New System.Drawing.Point(383, 23)
+        Me.MaskedTextBoxGsiHz.Margin = New System.Windows.Forms.Padding(5)
+        Me.MaskedTextBoxGsiHz.Mask = "21.324+0000000000000000 "
+        Me.MaskedTextBoxGsiHz.Name = "MaskedTextBoxGsiHz"
+        Me.MaskedTextBoxGsiHz.PromptChar = Global.Microsoft.VisualBasic.ChrW(35)
+        Me.MaskedTextBoxGsiHz.Size = New System.Drawing.Size(242, 19)
+        Me.MaskedTextBoxGsiHz.TabIndex = 2
+        '
+        'MaskedTextBoxGsiHzCor
+        '
+        Me.MaskedTextBoxGsiHzCor.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MaskedTextBoxGsiHzCor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.MaskedTextBoxGsiHzCor.Font = New System.Drawing.Font("Lucida Console", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MaskedTextBoxGsiHzCor.Location = New System.Drawing.Point(383, 55)
+        Me.MaskedTextBoxGsiHzCor.Margin = New System.Windows.Forms.Padding(5)
+        Me.MaskedTextBoxGsiHzCor.Mask = "25.344+0000000000000000 "
+        Me.MaskedTextBoxGsiHzCor.Name = "MaskedTextBoxGsiHzCor"
+        Me.MaskedTextBoxGsiHzCor.PromptChar = Global.Microsoft.VisualBasic.ChrW(35)
+        Me.MaskedTextBoxGsiHzCor.Size = New System.Drawing.Size(242, 19)
+        Me.MaskedTextBoxGsiHzCor.TabIndex = 3
+        '
+        'Label9
+        '
+        Me.Label9.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label9.Location = New System.Drawing.Point(381, 0)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(246, 18)
+        Me.Label9.TabIndex = 19
+        Me.Label9.Text = "Format GSI"
+        Me.Label9.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        '
+        'ButtonUpGsi
+        '
+        Me.ButtonUpGsi.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.ButtonUpGsi.AutoSize = True
+        Me.ButtonUpGsi.FlatAppearance.BorderColor = System.Drawing.SystemColors.ButtonShadow
+        Me.ButtonUpGsi.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.ButtonUpGsi.Location = New System.Drawing.Point(381, 85)
+        Me.ButtonUpGsi.Name = "ButtonUpGsi"
+        Me.ButtonUpGsi.Size = New System.Drawing.Size(246, 34)
+        Me.ButtonUpGsi.TabIndex = 4
+        Me.ButtonUpGsi.Text = "Prevedi izi GSI"
+        Me.ButtonUpGsi.UseVisualStyleBackColor = True
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBox1.BackColor = System.Drawing.SystemColors.Info
+        Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
+        Me.TextBox1.Location = New System.Drawing.Point(255, 24)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(120, 20)
+        Me.TextBox1.TabIndex = 0
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBox2.BackColor = System.Drawing.SystemColors.Info
+        Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBox2.Cursor = System.Windows.Forms.Cursors.IBeam
+        Me.TextBox2.Location = New System.Drawing.Point(255, 56)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(120, 20)
+        Me.TextBox2.TabIndex = 1
+        '
+        'ButtonIzr
+        '
+        Me.ButtonIzr.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.ButtonIzr.AutoSize = True
+        Me.ButtonIzr.BackColor = System.Drawing.SystemColors.ButtonFace
+        Me.ButtonIzr.FlatAppearance.BorderColor = System.Drawing.SystemColors.ButtonShadow
+        Me.ButtonIzr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.ButtonIzr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.ButtonIzr.Image = Global.TPS1100_Convert.My.Resources.Resources.digital_24
+        Me.ButtonIzr.Location = New System.Drawing.Point(129, 85)
+        Me.ButtonIzr.Name = "ButtonIzr"
+        Me.ButtonIzr.Size = New System.Drawing.Size(120, 34)
+        Me.ButtonIzr.TabIndex = 7
+        Me.ButtonIzr.Text = "IZRAČUN"
+        Me.ButtonIzr.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
+        Me.ButtonIzr.UseVisualStyleBackColor = False
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(3, 122)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(120, 32)
+        Me.Label3.TabIndex = 2
+        Me.Label3.Text = "Izračunan Hz"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'MaskedTextBoxHzNov
+        '
+        Me.MaskedTextBoxHzNov.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MaskedTextBoxHzNov.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.MaskedTextBoxHzNov.Cursor = System.Windows.Forms.Cursors.IBeam
+        Me.MaskedTextBoxHzNov.Enabled = False
+        Me.MaskedTextBoxHzNov.Font = New System.Drawing.Font("Lucida Console", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MaskedTextBoxHzNov.Location = New System.Drawing.Point(131, 127)
+        Me.MaskedTextBoxHzNov.Margin = New System.Windows.Forms.Padding(5)
+        Me.MaskedTextBoxHzNov.Name = "MaskedTextBoxHzNov"
+        Me.MaskedTextBoxHzNov.ReadOnly = True
+        Me.MaskedTextBoxHzNov.Size = New System.Drawing.Size(116, 20)
+        Me.MaskedTextBoxHzNov.TabIndex = 8
+        '
+        'MaskedTextBoxHzNovDms
+        '
+        Me.MaskedTextBoxHzNovDms.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MaskedTextBoxHzNovDms.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.MaskedTextBoxHzNovDms.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.MaskedTextBoxHzNovDms.Font = New System.Drawing.Font("Lucida Console", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MaskedTextBoxHzNovDms.Location = New System.Drawing.Point(257, 127)
+        Me.MaskedTextBoxHzNovDms.Margin = New System.Windows.Forms.Padding(5)
+        Me.MaskedTextBoxHzNovDms.Name = "MaskedTextBoxHzNovDms"
+        Me.MaskedTextBoxHzNovDms.PromptChar = Global.Microsoft.VisualBasic.ChrW(35)
+        Me.MaskedTextBoxHzNovDms.ReadOnly = True
+        Me.MaskedTextBoxHzNovDms.Size = New System.Drawing.Size(116, 20)
+        Me.MaskedTextBoxHzNovDms.TabIndex = 9
+        '
+        'MaskedTextBoxGsiHzNov
+        '
+        Me.MaskedTextBoxGsiHzNov.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MaskedTextBoxGsiHzNov.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
+        Me.MaskedTextBoxGsiHzNov.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.MaskedTextBoxGsiHzNov.Font = New System.Drawing.Font("Lucida Console", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MaskedTextBoxGsiHzNov.Location = New System.Drawing.Point(383, 127)
+        Me.MaskedTextBoxGsiHzNov.Margin = New System.Windows.Forms.Padding(5)
+        Me.MaskedTextBoxGsiHzNov.Name = "MaskedTextBoxGsiHzNov"
+        Me.MaskedTextBoxGsiHzNov.PromptChar = Global.Microsoft.VisualBasic.ChrW(35)
+        Me.MaskedTextBoxGsiHzNov.ReadOnly = True
+        Me.MaskedTextBoxGsiHzNov.Size = New System.Drawing.Size(242, 20)
+        Me.MaskedTextBoxGsiHzNov.TabIndex = 11
+        '
+        'ButtonKopirajHzTxt
+        '
+        Me.ButtonKopirajHzTxt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.ButtonKopirajHzTxt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.ButtonKopirajHzTxt.FlatAppearance.BorderSize = 0
+        Me.ButtonKopirajHzTxt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.ButtonKopirajHzTxt.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_rename_20
+        Me.ButtonKopirajHzTxt.Location = New System.Drawing.Point(255, 157)
+        Me.ButtonKopirajHzTxt.Name = "ButtonKopirajHzTxt"
+        Me.ButtonKopirajHzTxt.Size = New System.Drawing.Size(100, 26)
+        Me.ButtonKopirajHzTxt.TabIndex = 10
+        Me.ButtonKopirajHzTxt.Text = "Kopiraj"
+        Me.ButtonKopirajHzTxt.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
+        Me.ButtonKopirajHzTxt.UseVisualStyleBackColor = True
+        '
+        'ButtonKopirajHzGsi
+        '
+        Me.ButtonKopirajHzGsi.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.ButtonKopirajHzGsi.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.ButtonKopirajHzGsi.FlatAppearance.BorderSize = 0
+        Me.ButtonKopirajHzGsi.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.ButtonKopirajHzGsi.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_rename_20
+        Me.ButtonKopirajHzGsi.Location = New System.Drawing.Point(527, 157)
+        Me.ButtonKopirajHzGsi.Name = "ButtonKopirajHzGsi"
+        Me.ButtonKopirajHzGsi.Size = New System.Drawing.Size(100, 26)
+        Me.ButtonKopirajHzGsi.TabIndex = 12
+        Me.ButtonKopirajHzGsi.Text = "Kopiraj"
+        Me.ButtonKopirajHzGsi.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
+        Me.ButtonKopirajHzGsi.UseVisualStyleBackColor = True
+        '
+        'DialogIzracunHzCor
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.CancelButton = Me.Cancel_Button
+        Me.ClientSize = New System.Drawing.Size(655, 276)
+        Me.Controls.Add(Me.TableLayoutPanel2)
+        Me.Controls.Add(Me.TableLayoutPanel1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "DialogIzracunHzCor"
+        Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Izračun HzCor"
+        Me.TopMost = True
+        Me.TableLayoutPanel1.ResumeLayout(False)
+        Me.TableLayoutPanel2.ResumeLayout(False)
+        Me.TableLayoutPanel2.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+    Friend WithEvents OK_Button As System.Windows.Forms.Button
+    Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents MaskedTextBoxDegHz As MaskedTextBox
+    Friend WithEvents MaskedTextBoxHzNov As MaskedTextBox
+    Friend WithEvents MaskedTextBoxDegHzCor As MaskedTextBox
+    Friend WithEvents MaskedTextBoxHzNovDms As MaskedTextBox
+    Friend WithEvents ButtonIzr As Button
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents ButtonKopirajHzTxt As Button
+    Friend WithEvents ButtonKopirajHzGsi As Button
+    Friend WithEvents MaskedTextBoxGsiHzNov As MaskedTextBox
+    Friend WithEvents MaskedTextBoxGsiHz As MaskedTextBox
+    Friend WithEvents MaskedTextBoxGsiHzCor As MaskedTextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents ButtonUpGsi As Button
+    Friend WithEvents Cancel_Button As Button
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents TextBox2 As TextBox
+End Class

DialogIzracunHzCor.vb

@@ -0,0 +1,85 @@
+Imports System.Windows.Forms
+
+Public Class DialogIzracunHzCor
+
+    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+        Me.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.Close()
+    End Sub
+
+    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+    Private Sub ButtonIzr_Click(sender As Object, e As EventArgs) Handles ButtonIzr.Click
+        ' Pretvori DMS v decimalne stopinje za Hz
+        Dim hzMer = TextBox1.Text
+        Dim hzMerData = Split(hzMer, ".")
+        Dim hzMerDeg As Double = hzMerData(0)
+        Dim hzMerMin As Double = Microsoft.VisualBasic.Left(hzMerData(1), 2) / 60
+        Dim hzMerSec As Double = Microsoft.VisualBasic.Mid(hzMerData(1), 3) / 3600
+        Dim hzMerDecDeg As Double = hzMerDeg + hzMerMin + hzMerSec
+        MaskedTextBoxDegHz.Text = Format(hzMerDecDeg, "0.000000").ToString
+        ' Pretvori DMS v decimalne stopinje za HzCor
+        Dim hzPop = TextBox2.Text
+        Dim hzPopData = Split(hzPop, ".")
+        Dim hzPopDeg As Double = hzPopData(0)
+        Dim hzPopMin As Double = Microsoft.VisualBasic.Left(hzPopData(1).ToString, 2) / 60
+        Dim hzPopSec As Double = Microsoft.VisualBasic.Mid(hzPopData(1), 3) / 3600
+        Dim hzPopDecDeg As Double = hzPopDeg + hzPopMin + hzPopSec
+        MaskedTextBoxDegHzCor.Text = Format(hzPopDecDeg, "0.000000").ToString
+        ' Izračunaj nov Azi in izpiši v obeh formatih
+        Dim hzNovDecDeg As Double = hzMerDecDeg + hzPopDecDeg
+        If hzNovDecDeg >= 360 Then
+            hzNovDecDeg = hzNovDecDeg - 360
+        End If
+        MaskedTextBoxHzNov.Text = Format(hzNovDecDeg, "0.000000").ToString
+        Dim hzNov = MaskedTextBoxHzNov.Text
+        Dim hzNovData = Split(hzNov, ".")
+        Dim hzNovDeg As Double = Int(hzNov)
+        Dim hzNovMin As Double = (hzNov - hzNovDeg) * 60
+        Dim hzNovMinInt As Double = Int(hzNovMin)
+        Dim hzNovSec As Double = Format(((hzNovMin - hzNovMinInt) * 60), "00")
+        Dim hzNovDms As String = hzNovDeg.ToString + "." + hzNovMinInt.ToString + hzNovSec.ToString
+        Dim hzNovDmsGsi As String = "21.324+00000000" + Format(hzNovDeg, "000").ToString + Format(hzNovMinInt, "00").ToString + Format(hzNovSec, "00").ToString + "0 "
+        MaskedTextBoxHzNovDms.Text = hzNovDms
+        MaskedTextBoxGsiHzNov.Text = hzNovDmsGsi
+        'If hzNovDms >= 360 Then
+        '    hzNovDms = hzNovDms - 360
+        'End If
+        'MaskedTextBoxDegHz.Text = Format(hzMerDecDeg, "0.000000").ToString
+        'MaskedTextBoxDegHzCor.Text = Format(hzPopDecDeg, "0.000000").ToString
+
+    End Sub
+
+    Private Sub ButtonUpGsi_Click(sender As Object, e As EventArgs) Handles ButtonUpGsi.Click
+        ' Pretvori DMS v decimalne stopinje za Hz
+        Dim hzMer As Double = Microsoft.VisualBasic.Right(Replace(MaskedTextBoxGsiHz.Text, " ", ""), 8)
+        Dim hzMerNumData As Double = CDbl(hzMer / 100000)
+        TextBox1.Text = Format(hzMerNumData, "0.0000").ToString
+        'Dim hzMerData = Split(hzMerNumData.ToString, ".")
+        'Dim hzMerDeg As Double = hzMerData(0)
+        'Dim hzMerMin As Double = hzMerData(1) * 60
+        'Dim hzMerMinInt As Integer = Int(hzMerMin)
+        'Dim hzMerSec As Double = Format(((hzMerMin - hzMerMinInt) * 60), "0")
+        'Dim hzMerDms As String = hzMerDeg.ToString + "." + hzMerMinInt.ToString + hzMerSec.ToString
+        'MaskedTextBoxDegHz.Text = hzMerDms.ToString
+        ' Pretvori DMS v decimalne stopinje za HzCor
+        Dim hzPop As Double = Microsoft.VisualBasic.Right(Replace(MaskedTextBoxGsiHzCor.Text, " ", ""), 8)
+        Dim hzMPopNumData As Double = CDbl(hzPop / 100000)
+        TextBox2.Text = Format(hzMPopNumData, "0.0000").ToString
+        'Dim hzPopData = Split(hzMPopNumData.ToString, ".")
+        'Dim hzPopDeg As Double = hzPopData(0)
+        'Dim hzPopMin As Double = hzPopData(1) * 60
+        'Dim hzPopMinInt As Double = Int(hzPopMin)
+        'Dim hzPopSec As Double = Format(((hzPopMin - hzPopMinInt) * 60), "0")
+        'Dim hzPopDms As Double = hzPopDeg.ToString + "." + hzPopMinInt.ToString + hzPopSec.ToString
+        'MaskedTextBoxDegHzCor.Text = hzPopDms.ToString
+
+        'MaskedTextBoxDegHz.Text = Format(hzMerDecDeg.ToString, "0.000000").ToString
+        'MaskedTextBoxDegHzCor.Text = Format(hzPopDecDeg.ToString, "0.000000").ToString
+
+    End Sub
+
+End Class

DialogJobOdpri.Designer.vb

@@ -0,0 +1,242 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class DialogJobOdpri
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DialogJobOdpri))
+        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+        Me.OK_Button = New System.Windows.Forms.Button()
+        Me.Cancel_Button = New System.Windows.Forms.Button()
+        Me.ButtonUvozi = New System.Windows.Forms.Button()
+        Me.ListView1 = New System.Windows.Forms.ListView()
+        Me.ColumnHeaderJob = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+        Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
+        Me.LabelMapa = New System.Windows.Forms.Label()
+        Me.LabelDatum = New System.Windows.Forms.Label()
+        Me.LabelDatoteka = New System.Windows.Forms.Label()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.ImageListJob = New System.Windows.Forms.ImageList(Me.components)
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TableLayoutPanel1.SuspendLayout()
+        Me.TableLayoutPanel2.SuspendLayout()
+        Me.GroupBox1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'TableLayoutPanel1
+        '
+        Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TableLayoutPanel1.ColumnCount = 3
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 35.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 35.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 30.0!))
+        Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 2, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.ButtonUvozi, 1, 0)
+        Me.TableLayoutPanel1.Location = New System.Drawing.Point(12, 298)
+        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+        Me.TableLayoutPanel1.RowCount = 1
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+        Me.TableLayoutPanel1.Size = New System.Drawing.Size(380, 42)
+        Me.TableLayoutPanel1.TabIndex = 0
+        '
+        'OK_Button
+        '
+        Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+        Me.OK_Button.Enabled = False
+        Me.OK_Button.FlatAppearance.BorderSize = 0
+        Me.OK_Button.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.OK_Button.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_product_documents_24
+        Me.OK_Button.Location = New System.Drawing.Point(21, 3)
+        Me.OK_Button.Name = "OK_Button"
+        Me.OK_Button.Size = New System.Drawing.Size(90, 35)
+        Me.OK_Button.TabIndex = 1
+        Me.OK_Button.Text = "Odpri Job"
+        Me.OK_Button.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
+        '
+        'Cancel_Button
+        '
+        Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+        Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Cancel_Button.FlatAppearance.BorderSize = 0
+        Me.Cancel_Button.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Cancel_Button.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_24
+        Me.Cancel_Button.Location = New System.Drawing.Point(278, 3)
+        Me.Cancel_Button.Name = "Cancel_Button"
+        Me.Cancel_Button.Size = New System.Drawing.Size(90, 35)
+        Me.Cancel_Button.TabIndex = 3
+        Me.Cancel_Button.Text = "Prekliči"
+        Me.Cancel_Button.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
+        '
+        'ButtonUvozi
+        '
+        Me.ButtonUvozi.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom), System.Windows.Forms.AnchorStyles)
+        Me.ButtonUvozi.FlatAppearance.BorderSize = 0
+        Me.ButtonUvozi.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.ButtonUvozi.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_24
+        Me.ButtonUvozi.Location = New System.Drawing.Point(154, 3)
+        Me.ButtonUvozi.Name = "ButtonUvozi"
+        Me.ButtonUvozi.Size = New System.Drawing.Size(90, 36)
+        Me.ButtonUvozi.TabIndex = 2
+        Me.ButtonUvozi.Text = "Uvozi Job"
+        Me.ButtonUvozi.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
+        Me.ButtonUvozi.UseVisualStyleBackColor = True
+        '
+        'ListView1
+        '
+        Me.ListView1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeaderJob})
+        Me.ListView1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.ListView1.FullRowSelect = True
+        Me.ListView1.GridLines = True
+        Me.ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
+        Me.ListView1.HideSelection = False
+        Me.ListView1.LabelWrap = False
+        Me.ListView1.Location = New System.Drawing.Point(14, 14)
+        Me.ListView1.Margin = New System.Windows.Forms.Padding(5)
+        Me.ListView1.MultiSelect = False
+        Me.ListView1.Name = "ListView1"
+        Me.ListView1.ShowItemToolTips = True
+        Me.ListView1.Size = New System.Drawing.Size(177, 278)
+        Me.ListView1.SmallImageList = Me.ImageListJob
+        Me.ListView1.TabIndex = 0
+        Me.ListView1.UseCompatibleStateImageBehavior = False
+        Me.ListView1.View = System.Windows.Forms.View.List
+        '
+        'ColumnHeaderJob
+        '
+        Me.ColumnHeaderJob.Width = 155
+        '
+        'TableLayoutPanel2
+        '
+        Me.TableLayoutPanel2.ColumnCount = 1
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+        Me.TableLayoutPanel2.Controls.Add(Me.LabelDatoteka, 0, 0)
+        Me.TableLayoutPanel2.Controls.Add(Me.LabelDatum, 0, 1)
+        Me.TableLayoutPanel2.Location = New System.Drawing.Point(6, 19)
+        Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
+        Me.TableLayoutPanel2.RowCount = 2
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel2.Size = New System.Drawing.Size(181, 60)
+        Me.TableLayoutPanel2.TabIndex = 3
+        '
+        'LabelMapa
+        '
+        Me.LabelMapa.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LabelMapa.AutoSize = True
+        Me.LabelMapa.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.LabelMapa.Location = New System.Drawing.Point(243, 14)
+        Me.LabelMapa.Name = "LabelMapa"
+        Me.LabelMapa.Size = New System.Drawing.Size(16, 13)
+        Me.LabelMapa.TabIndex = 2
+        Me.LabelMapa.Text = "..."
+        '
+        'LabelDatum
+        '
+        Me.LabelDatum.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LabelDatum.AutoSize = True
+        Me.LabelDatum.Location = New System.Drawing.Point(3, 38)
+        Me.LabelDatum.Name = "LabelDatum"
+        Me.LabelDatum.Size = New System.Drawing.Size(175, 13)
+        Me.LabelDatum.TabIndex = 3
+        Me.LabelDatum.Text = "..."
+        '
+        'LabelDatoteka
+        '
+        Me.LabelDatoteka.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LabelDatoteka.AutoSize = True
+        Me.LabelDatoteka.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.LabelDatoteka.Location = New System.Drawing.Point(3, 7)
+        Me.LabelDatoteka.Name = "LabelDatoteka"
+        Me.LabelDatoteka.Size = New System.Drawing.Size(175, 16)
+        Me.LabelDatoteka.TabIndex = 1
+        Me.LabelDatoteka.Text = "..."
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.TableLayoutPanel2)
+        Me.GroupBox1.Location = New System.Drawing.Point(199, 35)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(193, 90)
+        Me.GroupBox1.TabIndex = 4
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Job"
+        '
+        'ImageListJob
+        '
+        Me.ImageListJob.ImageStream = CType(resources.GetObject("ImageListJob.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageListJob.TransparentColor = System.Drawing.Color.Transparent
+        Me.ImageListJob.Images.SetKeyName(0, "icons8-file-GSI-50.png")
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(200, 14)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(37, 13)
+        Me.Label1.TabIndex = 5
+        Me.Label1.Text = "Mapa:"
+        '
+        'DialogJobOdpri
+        '
+        Me.AcceptButton = Me.OK_Button
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.CancelButton = Me.Cancel_Button
+        Me.ClientSize = New System.Drawing.Size(404, 352)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.LabelMapa)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Controls.Add(Me.ListView1)
+        Me.Controls.Add(Me.TableLayoutPanel1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "DialogJobOdpri"
+        Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Odpri Job"
+        Me.TopMost = True
+        Me.TableLayoutPanel1.ResumeLayout(False)
+        Me.TableLayoutPanel2.ResumeLayout(False)
+        Me.TableLayoutPanel2.PerformLayout()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+    Friend WithEvents OK_Button As System.Windows.Forms.Button
+    Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+    Friend WithEvents ListView1 As ListView
+    Friend WithEvents ColumnHeaderJob As ColumnHeader
+    Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
+    Friend WithEvents LabelMapa As Label
+    Friend WithEvents LabelDatoteka As Label
+    Friend WithEvents LabelDatum As Label
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents ButtonUvozi As Button
+    Friend WithEvents ImageListJob As ImageList
+    Friend WithEvents Label1 As Label
+End Class

DialogJobOdpri.vb

@@ -0,0 +1,75 @@
+Imports System.IO
+Imports System.Windows.Forms
+Imports System.Windows.Forms.ListViewItem
+
+
+Public Class DialogJobOdpri
+
+    Dim mapa As String
+    Dim datime As String
+    Dim datmapa As String
+    Dim datdatum As String
+
+    Private Sub DialogJobOdpri_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        mapa = My.Settings.ProjektMapa.ToString
+        Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString + "\" + mapa.ToString
+        Dim datotekeJobi = My.Computer.FileSystem.GetFiles(delovnaMapa, FileIO.SearchOption.SearchTopLevelOnly, "*.GSI")
+        Dim i As Integer = 0
+        ListView1.Clear()
+
+        For Each datJob In datotekeJobi
+            ListView1.Items.Add(Path.GetFileName(datJob).ToString).SubItems.Add(Path.GetFullPath(datJob))
+            ListView1.Items.Item(i).ImageIndex = 0
+            i = i + 1
+        Next
+        LabelMapa.Text = mapa.ToString
+    End Sub
+
+    Private Sub NaloziJob()
+        Form1.datJob = datmapa
+        Form1.NaloziGsiJob()
+    End Sub
+
+    Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
+        Dim izbran As ListView.SelectedListViewItemCollection = Me.ListView1.SelectedItems
+        Dim item As ListViewItem
+
+        For Each item In izbran
+            datime = item.SubItems(0).Text
+            datmapa = item.SubItems(1).Text
+        Next
+
+        datdatum = My.Computer.FileSystem.GetFileInfo(datmapa).LastWriteTime
+
+        If LabelDatoteka.Text = "" Then
+            OK_Button.Enabled = False
+        Else
+            OK_Button.Enabled = True
+        End If
+
+        LabelDatoteka.Text = datime.ToString
+        LabelDatum.Text = datdatum.ToString
+
+    End Sub
+
+    Private Sub ListView1_Selected_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick
+        NaloziJob()
+        Me.Close()
+    End Sub
+
+    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+        NaloziJob()
+        Me.Close()
+    End Sub
+
+    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+    Private Sub ButtonUvozi_Click(sender As Object, e As EventArgs) Handles ButtonUvozi.Click
+        Form1.UvoziGsiJob()
+        Me.Close()
+
+    End Sub
+End Class

DialogKartica.Designer.vb

@@ -0,0 +1,221 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class DialogKartica
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DialogKartica))
+        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+        Me.OK_Button = New System.Windows.Forms.Button()
+        Me.Cancel_Button = New System.Windows.Forms.Button()
+        Me.ListViewGsiJob = New System.Windows.Forms.ListView()
+        Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+        Me.cbPgon = New System.Windows.Forms.ComboBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.TableLayoutPanel1.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'TableLayoutPanel1
+        '
+        Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TableLayoutPanel1.ColumnCount = 2
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+        Me.TableLayoutPanel1.Location = New System.Drawing.Point(12, 263)
+        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+        Me.TableLayoutPanel1.RowCount = 1
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.Size = New System.Drawing.Size(210, 46)
+        Me.TableLayoutPanel1.TabIndex = 0
+        '
+        'OK_Button
+        '
+        Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+        Me.OK_Button.FlatAppearance.BorderSize = 0
+        Me.OK_Button.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.OK_Button.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_24
+        Me.OK_Button.Location = New System.Drawing.Point(9, 3)
+        Me.OK_Button.Name = "OK_Button"
+        Me.OK_Button.Size = New System.Drawing.Size(86, 39)
+        Me.OK_Button.TabIndex = 3
+        Me.OK_Button.Text = "Uvozi"
+        Me.OK_Button.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.OK_Button.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
+        '
+        'Cancel_Button
+        '
+        Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+        Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Cancel_Button.FlatAppearance.BorderSize = 0
+        Me.Cancel_Button.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Cancel_Button.Location = New System.Drawing.Point(124, 3)
+        Me.Cancel_Button.Name = "Cancel_Button"
+        Me.Cancel_Button.Size = New System.Drawing.Size(67, 40)
+        Me.Cancel_Button.TabIndex = 4
+        Me.Cancel_Button.Text = "Prekini"
+        '
+        'ListViewGsiJob
+        '
+        Me.ListViewGsiJob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.ListViewGsiJob.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2})
+        Me.ListViewGsiJob.FullRowSelect = True
+        Me.ListViewGsiJob.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
+        Me.ListViewGsiJob.HideSelection = False
+        Me.ListViewGsiJob.LabelWrap = False
+        Me.ListViewGsiJob.Location = New System.Drawing.Point(12, 83)
+        Me.ListViewGsiJob.MultiSelect = False
+        Me.ListViewGsiJob.Name = "ListViewGsiJob"
+        Me.ListViewGsiJob.ShowGroups = False
+        Me.ListViewGsiJob.ShowItemToolTips = True
+        Me.ListViewGsiJob.Size = New System.Drawing.Size(210, 136)
+        Me.ListViewGsiJob.SmallImageList = Me.ImageList1
+        Me.ListViewGsiJob.TabIndex = 1
+        Me.ListViewGsiJob.UseCompatibleStateImageBehavior = False
+        Me.ListViewGsiJob.View = System.Windows.Forms.View.List
+        '
+        'ColumnHeader1
+        '
+        Me.ColumnHeader1.Text = "Datoteka"
+        Me.ColumnHeader1.Width = 140
+        '
+        'ImageList1
+        '
+        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+        Me.ImageList1.Images.SetKeyName(0, "icons8-scroll-50.png")
+        Me.ImageList1.Images.SetKeyName(1, "icons8-file-GSI-50.png")
+        '
+        'cbPgon
+        '
+        Me.cbPgon.FlatStyle = System.Windows.Forms.FlatStyle.Popup
+        Me.cbPgon.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbPgon.FormattingEnabled = True
+        Me.cbPgon.ItemHeight = 16
+        Me.cbPgon.Location = New System.Drawing.Point(110, 31)
+        Me.cbPgon.Name = "cbPgon"
+        Me.cbPgon.Size = New System.Drawing.Size(112, 24)
+        Me.cbPgon.TabIndex = 0
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(66, 36)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(38, 13)
+        Me.Label1.TabIndex = 3
+        Me.Label1.Text = "Pogon"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(12, 67)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(47, 13)
+        Me.Label2.TabIndex = 4
+        Me.Label2.Text = "GSI Jobi"
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Anchor = System.Windows.Forms.AnchorStyles.None
+        Me.PictureBox1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_sdb_import_50
+        Me.PictureBox1.InitialImage = Global.TPS1100_Convert.My.Resources.Resources.icons8_sd_50
+        Me.PictureBox1.Location = New System.Drawing.Point(12, 12)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(48, 52)
+        Me.PictureBox1.TabIndex = 5
+        Me.PictureBox1.TabStop = False
+        '
+        'Label3
+        '
+        Me.Label3.Location = New System.Drawing.Point(12, 241)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(210, 19)
+        Me.Label3.TabIndex = 6
+        Me.Label3.Text = "Datum zapisa:"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'ColumnHeader2
+        '
+        Me.ColumnHeader2.Text = "Datum"
+        Me.ColumnHeader2.Width = 100
+        '
+        'Label4
+        '
+        Me.Label4.Location = New System.Drawing.Point(12, 222)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(210, 19)
+        Me.Label4.TabIndex = 6
+        Me.Label4.Text = "Ddatoteka..."
+        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'DialogKartica
+        '
+        Me.AcceptButton = Me.OK_Button
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.CancelButton = Me.Cancel_Button
+        Me.ClientSize = New System.Drawing.Size(234, 321)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.cbPgon)
+        Me.Controls.Add(Me.ListViewGsiJob)
+        Me.Controls.Add(Me.TableLayoutPanel1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "DialogKartica"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Kartica"
+        Me.TopMost = True
+        Me.TableLayoutPanel1.ResumeLayout(False)
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+    Friend WithEvents OK_Button As System.Windows.Forms.Button
+    Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+    Friend WithEvents ListViewGsiJob As ListView
+    Friend WithEvents cbPgon As ComboBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents ColumnHeader1 As ColumnHeader
+    Friend WithEvents ImageList1 As ImageList
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents ColumnHeader2 As ColumnHeader
+    Friend WithEvents Label4 As Label
+End Class

DialogKartica.vb

@@ -0,0 +1,79 @@
+Imports System.IO
+Imports System.Windows.Forms
+
+
+Public Class DialogKartica
+
+    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+        ' Uvozi izbrano datoteko v aktivni projekt
+        Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString + "\" + My.Settings.ProjektMapa.ToString + "\"
+        Dim izbran As ListView.SelectedListViewItemCollection = Me.ListViewGsiJob.SelectedItems
+        Dim item As ListViewItem
+        Dim ime As String = ""
+        Dim mapa As String = ""
+        Dim datdatum As String = ""
+
+        For Each item In izbran
+            ime = item.SubItems(0).Text
+            mapa = item.SubItems(1).Text
+            datdatum = My.Computer.FileSystem.GetFileInfo(mapa).LastWriteTime
+            Dim fileUvoz = mapa
+            Dim fileIme = ime
+            Dim fileIzvoz = delovnaMapa + fileIme
+            My.Computer.FileSystem.CopyFile(fileUvoz, fileIzvoz, True)
+            Form1.datJob = fileIzvoz
+        Next
+
+        Form1.NaloziGsiJob()
+
+        Me.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.Close()
+    End Sub
+
+    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+    Private Sub DialogKartica_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        For Each drive In IO.DriveInfo.GetDrives
+            'get all removable and fixed drives
+            If drive.DriveType = IO.DriveType.Removable And drive.IsReady = True Then
+                'add all found drives into the combobox
+                cbPgon.Items.Add(drive)
+            End If
+        Next
+    End Sub
+
+    Private Sub cbPgon_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbPgon.SelectedIndexChanged
+        Dim delovnaMapa = cbPgon.Text + "GSI"
+        ListViewGsiJob.Clear()
+        If My.Computer.FileSystem.DirectoryExists(delovnaMapa) Then
+            Dim ix As Integer = 0
+            Dim datotekeJobi = My.Computer.FileSystem.GetFiles(delovnaMapa, FileIO.SearchOption.SearchTopLevelOnly, "*.GSI")
+            For Each datJob In datotekeJobi
+                Dim datdatum = My.Computer.FileSystem.GetFileInfo(datJob).LastWriteTime
+                ListViewGsiJob.Items.Add(Path.GetFileName(datJob).ToString, 1).SubItems.Add(Path.GetFullPath(datJob))
+                ListViewGsiJob.Items.Item(ix).ToolTipText = datdatum.ToString
+                ix = ix + 1
+            Next
+        End If
+
+    End Sub
+
+    Private Sub ListViewGsiJob_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewGsiJob.SelectedIndexChanged
+        Dim izbran As ListView.SelectedListViewItemCollection = Me.ListViewGsiJob.SelectedItems
+        Dim item As ListViewItem
+        Dim ime As String = ""
+        Dim mapa As String = ""
+        Dim datdatum As String = ""
+        For Each item In izbran
+            ime = item.SubItems(0).Text
+            mapa = item.SubItems(1).Text
+            datdatum = My.Computer.FileSystem.GetFileInfo(mapa).LastWriteTime
+        Next
+
+        Label3.Text = "Datum zapisa: " + datdatum.ToString
+        Label4.Text = "Datoteka: " + mapa.ToString
+    End Sub
+End Class

DialogNovProj.Designer.vb

@@ -0,0 +1,113 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class DialogNovProj
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+        Me.OK_Button = New System.Windows.Forms.Button()
+        Me.Cancel_Button = New System.Windows.Forms.Button()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TableLayoutPanel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'TableLayoutPanel1
+        '
+        Me.TableLayoutPanel1.Anchor = System.Windows.Forms.AnchorStyles.Bottom
+        Me.TableLayoutPanel1.ColumnCount = 2
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+        Me.TableLayoutPanel1.Location = New System.Drawing.Point(90, 49)
+        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+        Me.TableLayoutPanel1.RowCount = 1
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
+        Me.TableLayoutPanel1.TabIndex = 0
+        '
+        'OK_Button
+        '
+        Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+        Me.OK_Button.Location = New System.Drawing.Point(3, 3)
+        Me.OK_Button.Name = "OK_Button"
+        Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+        Me.OK_Button.TabIndex = 0
+        Me.OK_Button.Text = "OK"
+        '
+        'Cancel_Button
+        '
+        Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+        Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
+        Me.Cancel_Button.Name = "Cancel_Button"
+        Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+        Me.Cancel_Button.TabIndex = 1
+        Me.Cancel_Button.Text = "Cancel"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBox1.Location = New System.Drawing.Point(80, 8)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(156, 22)
+        Me.TextBox1.TabIndex = 1
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(8, 11)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(66, 13)
+        Me.Label1.TabIndex = 2
+        Me.Label1.Text = "Ime Projekta"
+        '
+        'DialogNovProj
+        '
+        Me.AcceptButton = Me.OK_Button
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.CancelButton = Me.Cancel_Button
+        Me.ClientSize = New System.Drawing.Size(244, 86)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.TableLayoutPanel1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "DialogNovProj"
+        Me.Padding = New System.Windows.Forms.Padding(5)
+        Me.ShowInTaskbar = False
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Nov Projekt"
+        Me.TopMost = True
+        Me.TableLayoutPanel1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+    Friend WithEvents OK_Button As System.Windows.Forms.Button
+    Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Label1 As Label
+End Class

DialogNovProj.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

DialogNovProj.vb

@@ -0,0 +1,24 @@
+Imports System.Windows.Forms
+
+Public Class DialogNovProj
+
+    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+        Me.DialogResult = System.Windows.Forms.DialogResult.OK
+
+        If (My.Computer.FileSystem.DirectoryExists("Projekti\" + TextBox1.Text)) Then
+            MessageBox.Show("Projekt z tem imenom že obstaja!")
+        Else
+            My.Computer.FileSystem.CreateDirectory("Projekti\" + TextBox1.Text)
+            FormGsiJobs.ListViewProj.Items.Add(TextBox1.Text).SubItems.Add("Projekti\" + TextBox1.Text)
+            FormGsiJobs.ProjektiShraniNast()
+        End If
+
+        Me.Close()
+    End Sub
+
+    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+End Class

DialogPripravaKartice.Designer.vb

@@ -0,0 +1,307 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class DialogPripravaKartice
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DialogPripravaKartice))
+        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+        Me.Button_Pripravi = New System.Windows.Forms.Button()
+        Me.Button_Zapri = New System.Windows.Forms.Button()
+        Me.Button_Format = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
+        Me.LabelSize = New System.Windows.Forms.Label()
+        Me.LabelTip = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.TextBoxPogonIme = New System.Windows.Forms.TextBox()
+        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.TableLayoutPanel1.SuspendLayout()
+        Me.TableLayoutPanel2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'TableLayoutPanel1
+        '
+        Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TableLayoutPanel1.ColumnCount = 4
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 30.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 30.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 30.0!))
+        Me.TableLayoutPanel1.Controls.Add(Me.Button_Pripravi, 1, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Button_Zapri, 3, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Button_Format, 0, 0)
+        Me.TableLayoutPanel1.Location = New System.Drawing.Point(12, 179)
+        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+        Me.TableLayoutPanel1.RowCount = 1
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 40.0!))
+        Me.TableLayoutPanel1.Size = New System.Drawing.Size(340, 40)
+        Me.TableLayoutPanel1.TabIndex = 0
+        '
+        'Button_Pripravi
+        '
+        Me.Button_Pripravi.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button_Pripravi.AutoSize = True
+        Me.Button_Pripravi.Enabled = False
+        Me.Button_Pripravi.FlatAppearance.BorderSize = 0
+        Me.Button_Pripravi.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button_Pripravi.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_caps_lock_on_24
+        Me.Button_Pripravi.Location = New System.Drawing.Point(105, 3)
+        Me.Button_Pripravi.Name = "Button_Pripravi"
+        Me.Button_Pripravi.Size = New System.Drawing.Size(96, 34)
+        Me.Button_Pripravi.TabIndex = 1
+        Me.Button_Pripravi.Text = "Pripravi"
+        Me.Button_Pripravi.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
+        '
+        'Button_Zapri
+        '
+        Me.Button_Zapri.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button_Zapri.AutoSize = True
+        Me.Button_Zapri.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Button_Zapri.FlatAppearance.BorderSize = 0
+        Me.Button_Zapri.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button_Zapri.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_24
+        Me.Button_Zapri.Location = New System.Drawing.Point(241, 3)
+        Me.Button_Zapri.Name = "Button_Zapri"
+        Me.Button_Zapri.Size = New System.Drawing.Size(96, 34)
+        Me.Button_Zapri.TabIndex = 2
+        Me.Button_Zapri.Text = "Izhod"
+        Me.Button_Zapri.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
+        Me.Button_Zapri.UseVisualStyleBackColor = True
+        '
+        'Button_Format
+        '
+        Me.Button_Format.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button_Format.Enabled = False
+        Me.Button_Format.FlatAppearance.BorderSize = 0
+        Me.Button_Format.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button_Format.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_error_24
+        Me.Button_Format.Location = New System.Drawing.Point(3, 3)
+        Me.Button_Format.Name = "Button_Format"
+        Me.Button_Format.Size = New System.Drawing.Size(96, 34)
+        Me.Button_Format.TabIndex = 3
+        Me.Button_Format.Text = "Formatiraj"
+        Me.Button_Format.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
+        Me.Button_Format.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(67, 13)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(241, 65)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Formatiranje in Priprava kartice.." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Na kartico bodo naloženi podatki za TPS1100 i" &
+    "n GPS500."
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label2
+        '
+        Me.Label2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_micro_sd_50
+        Me.Label2.Location = New System.Drawing.Point(13, 13)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(48, 65)
+        Me.Label2.TabIndex = 2
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.ComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(3, 38)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(62, 24)
+        Me.ComboBox1.TabIndex = 0
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(3, 8)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(62, 13)
+        Me.Label3.TabIndex = 3
+        Me.Label3.Text = "Pogon"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'TableLayoutPanel2
+        '
+        Me.TableLayoutPanel2.ColumnCount = 4
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 35.0!))
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+        Me.TableLayoutPanel2.Controls.Add(Me.ComboBox1, 0, 1)
+        Me.TableLayoutPanel2.Controls.Add(Me.LabelSize, 2, 1)
+        Me.TableLayoutPanel2.Controls.Add(Me.LabelTip, 3, 1)
+        Me.TableLayoutPanel2.Controls.Add(Me.Label3, 0, 0)
+        Me.TableLayoutPanel2.Controls.Add(Me.Label4, 1, 0)
+        Me.TableLayoutPanel2.Controls.Add(Me.Label5, 2, 0)
+        Me.TableLayoutPanel2.Controls.Add(Me.Label6, 3, 0)
+        Me.TableLayoutPanel2.Controls.Add(Me.TextBoxPogonIme, 1, 1)
+        Me.TableLayoutPanel2.Location = New System.Drawing.Point(12, 81)
+        Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
+        Me.TableLayoutPanel2.RowCount = 2
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 40.0!))
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel2.Size = New System.Drawing.Size(340, 70)
+        Me.TableLayoutPanel2.TabIndex = 4
+        '
+        'LabelSize
+        '
+        Me.LabelSize.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.LabelSize.AutoSize = True
+        Me.LabelSize.Location = New System.Drawing.Point(190, 43)
+        Me.LabelSize.Name = "LabelSize"
+        Me.LabelSize.Size = New System.Drawing.Size(29, 13)
+        Me.LabelSize.TabIndex = 5
+        Me.LabelSize.Text = "(MB)"
+        Me.LabelSize.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'LabelTip
+        '
+        Me.LabelTip.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LabelTip.AutoSize = True
+        Me.LabelTip.Location = New System.Drawing.Point(275, 43)
+        Me.LabelTip.Name = "LabelTip"
+        Me.LabelTip.Size = New System.Drawing.Size(62, 13)
+        Me.LabelTip.TabIndex = 6
+        Me.LabelTip.Text = "(TIP)"
+        Me.LabelTip.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label4
+        '
+        Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(71, 8)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(113, 13)
+        Me.Label4.TabIndex = 3
+        Me.Label4.Text = "Ime"
+        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label5
+        '
+        Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(190, 8)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(79, 13)
+        Me.Label5.TabIndex = 3
+        Me.Label5.Text = "Velikost/Prosto"
+        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label6
+        '
+        Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(275, 8)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(62, 13)
+        Me.Label6.TabIndex = 3
+        Me.Label6.Text = "Format"
+        Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'TextBoxPogonIme
+        '
+        Me.TextBoxPogonIme.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.TextBoxPogonIme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxPogonIme.Location = New System.Drawing.Point(71, 39)
+        Me.TextBoxPogonIme.Name = "TextBoxPogonIme"
+        Me.TextBoxPogonIme.Size = New System.Drawing.Size(100, 21)
+        Me.TextBoxPogonIme.TabIndex = 7
+        '
+        'ProgressBar1
+        '
+        Me.ProgressBar1.ForeColor = System.Drawing.Color.YellowGreen
+        Me.ProgressBar1.Location = New System.Drawing.Point(58, 157)
+        Me.ProgressBar1.Name = "ProgressBar1"
+        Me.ProgressBar1.Size = New System.Drawing.Size(294, 16)
+        Me.ProgressBar1.Step = 1
+        Me.ProgressBar1.TabIndex = 6
+        '
+        'Label7
+        '
+        Me.Label7.Anchor = System.Windows.Forms.AnchorStyles.None
+        Me.Label7.Location = New System.Drawing.Point(9, 154)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(43, 22)
+        Me.Label7.TabIndex = 7
+        Me.Label7.Text = "Prostor"
+        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'DialogPripravaKartice
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(364, 231)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.ProgressBar1)
+        Me.Controls.Add(Me.TableLayoutPanel2)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.TableLayoutPanel1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "DialogPripravaKartice"
+        Me.ShowInTaskbar = False
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Priprava PC-Kartice"
+        Me.TableLayoutPanel1.ResumeLayout(False)
+        Me.TableLayoutPanel1.PerformLayout()
+        Me.TableLayoutPanel2.ResumeLayout(False)
+        Me.TableLayoutPanel2.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+    Friend WithEvents Button_Pripravi As System.Windows.Forms.Button
+    Friend WithEvents Button_Zapri As Button
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
+    Friend WithEvents Button_Format As Button
+    Friend WithEvents LabelSize As Label
+    Friend WithEvents LabelTip As Label
+    Friend WithEvents ProgressBar1 As ProgressBar
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents TextBoxPogonIme As TextBox
+    Friend WithEvents Label7 As Label
+End Class

DialogPripravaKartice.vb

@@ -0,0 +1,175 @@
+Imports System.IO
+Imports System.Windows.Forms
+
+Public Class DialogPripravaKartice
+
+    Private Sub DialogPripravaKartice_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        For Each drive In IO.DriveInfo.GetDrives
+            'get all removable and fixed drives
+            If drive.DriveType = IO.DriveType.Removable And drive.IsReady = True Then
+                'add all found drives into the combobox
+                ComboBox1.Items.Add(drive)
+            End If
+        Next
+
+    End Sub
+
+    ' Funkcija za pripravo PC-kartice/delovne mape
+    Private Sub PripravaKartice()
+        ' Pripravi datoteke in poti za kopiranje
+        Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString
+        Dim karticaMapa = ComboBox1.Text
+        Dim fileUvozCode = delovnaMapa + "\Virtualna Kartica\CODE\TPS1100.crf"
+        Dim fileIzvozCode = karticaMapa + "CODE\TPS1100.crf"
+        Dim fileUvozGeoid1 = delovnaMapa + "\Virtualna Kartica\DATA\GPS\GEOID\SLO1.GEM"
+        Dim fileIzvozGeoid1 = karticaMapa + "DATA\GPS\GEOID\SLO1.GEM"
+        Dim fileUvozGeoid2 = delovnaMapa + "\Virtualna Kartica\DATA\GPS\GEOID\SLOG2000.GEM"
+        Dim fileIzvozGeoid2 = karticaMapa + "DATA\GPS\GEOID\SLOG2000.GEM"
+        Dim fileUvozGeoid3 = delovnaMapa + "\Virtualna Kartica\DATA\GPS\GEOID\SLOV2016.GEM"
+        Dim fileIzvozGeoid3 = karticaMapa + "DATA\GPS\GEOID\SLOV2016.GEM"
+        Dim fileUvozTps = delovnaMapa + "\Virtualna Kartica\TPS\CONF\1102_BB.PAR"
+        Dim fileIzvozTps = karticaMapa + "TPS\CONF\1102_BB.PAR"
+        Dim fileUvozGpsGsi = delovnaMapa + "\Virtualna Kartica\CONVERT\GPS-GSI.FRT"
+        Dim fileIzvozGpsGsi = karticaMapa + "CONVERT\GPS-GSI.FRT"
+        Dim fileUvozGpsKoo = delovnaMapa + "\Virtualna Kartica\CONVERT\GPS-KOO.FRT"
+        Dim fileIzvozGpsKoo = karticaMapa + "CONVERT\GPS-KOO.FRT"
+        Dim fileUvozGpsPor = delovnaMapa + "\Virtualna Kartica\CONVERT\POROCILO.FRT"
+        Dim fileIzvozGpsPor = karticaMapa + "CONVERT\POROCILO.FRT"
+        ' Kopiraj datoteke na kartico
+        If My.Computer.FileSystem.FileExists(fileUvozCode) Then
+            My.Computer.FileSystem.CopyFile(fileUvozCode, fileIzvozCode, True)
+        End If
+
+        If My.Computer.FileSystem.FileExists(fileUvozGeoid1) Then
+            My.Computer.FileSystem.CopyFile(fileUvozGeoid1, fileIzvozGeoid1, True)
+        End If
+
+        If My.Computer.FileSystem.FileExists(fileUvozGeoid2) Then
+            My.Computer.FileSystem.CopyFile(fileUvozGeoid2, fileIzvozGeoid2, True)
+        End If
+
+        If My.Computer.FileSystem.FileExists(fileUvozGeoid3) Then
+            My.Computer.FileSystem.CopyFile(fileUvozGeoid3, fileIzvozGeoid3, True)
+        End If
+
+        If My.Computer.FileSystem.FileExists(fileUvozTps) Then
+            My.Computer.FileSystem.CopyFile(fileUvozTps, fileIzvozTps, True)
+        End If
+
+        If My.Computer.FileSystem.FileExists(fileUvozGpsGsi) Then
+            My.Computer.FileSystem.CopyFile(fileUvozGpsGsi, fileIzvozGpsGsi, True)
+        End If
+
+        If My.Computer.FileSystem.FileExists(fileUvozGpsKoo) Then
+            My.Computer.FileSystem.CopyFile(fileUvozGpsKoo, fileIzvozGpsKoo, True)
+        End If
+
+        If My.Computer.FileSystem.FileExists(fileUvozGpsPor) Then
+            My.Computer.FileSystem.CopyFile(fileUvozGpsPor, fileIzvozGpsPor, True)
+        End If
+
+        If My.Computer.FileSystem.DirectoryExists(karticaMapa + "GSI") = False Then
+            My.Computer.FileSystem.CreateDirectory(karticaMapa + "GSI")
+        End If
+
+        If My.Computer.FileSystem.DirectoryExists(karticaMapa + "LOG") = False Then
+            My.Computer.FileSystem.CreateDirectory(karticaMapa + "LOG")
+        End If
+
+    End Sub
+
+    Private Sub Button_Pripravi_Click(ByVal sender As Object, e As EventArgs) Handles Button_Pripravi.Click
+        Dim karticaMapa As String = ComboBox1.Text
+        Dim kartica As String = ComboBox1.Text.Replace("\", "")
+        Dim karticaTip As String = LabelTip.Text
+        Dim karticaLabel As String = TextBoxPogonIme.Text
+
+        Dim msgPriprava = MsgBox("Priprava pogona: " + kartica + " [" + karticaLabel + "]" + vbCrLf + vbCrLf +
+                                 "Na kartico bodo naloženi podatki za TPS110x in GPS500." + vbCrLf +
+                                 "Nadaljujem?",
+                                 vbYesNo + vbExclamation, "Formatiranje kartice...")
+
+        If msgPriprava = DialogResult.Yes Then
+            ' Zaženi pripravo kartice
+            PripravaKartice()
+            ' Priprava končana...
+            Dim msgPripravaOk = MsgBox("Kartica pripravljena... podatki naloženi." + vbCrLf + vbCrLf +
+                                       "- CODE: Kode za TPS1100" + vbCrLf +
+                                       "- CONVERT: Formati izvoza podatkov za GPS500" + vbCrLf +
+                                       "- DATA/GPS/GEOID: Geoidi za GPS500" + vbCrLf +
+                                       "- TPS/CONF: Nastavitve za TPS110x" + vbCrLf + vbCrLf +
+                                       "Odprem mapo kartice?",
+                                       vbYesNo + vbInformation, "Priprava Kartice")
+
+            If msgPripravaOk = DialogResult.Yes Then
+                Process.Start(karticaMapa)
+            End If
+        End If
+
+        Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
+        Dim d As DriveInfo
+        Dim totalSize
+        Dim availSize
+        Dim usedSize
+
+        For Each d In allDrives
+            If d.Name = ComboBox1.Text Then
+                totalSize = Format(d.TotalSize / 1000 / 1000, "0")
+                availSize = Format(d.AvailableFreeSpace / 1000 / 1000, "0")
+                usedSize = totalSize - availSize
+                LabelSize.Text = totalSize.ToString + "/" + availSize.ToString + " MB"
+                TextBoxPogonIme.Text = d.VolumeLabel.ToString
+                LabelTip.Text = d.DriveFormat.ToString
+                ProgressBar1.Maximum = totalSize
+                ProgressBar1.Value = usedSize
+            End If
+        Next
+
+    End Sub
+
+    Private Sub Button_Format_Click(sender As Object, e As EventArgs) Handles Button_Format.Click
+        Dim kartica As String = ComboBox1.Text.Replace("\", "")
+        Dim karticaTip As String = LabelTip.Text
+        Dim karticaLabel As String = TextBoxPogonIme.Text
+
+        Dim msgFormat = MsgBox("Formatiranje pogona: " + kartica + " [" + karticaLabel + "]" + vbCrLf + "Vsi podatki na pogonu bodo izbrisani!" + vbCrLf + "Nadaljujem?", vbYesNo + vbExclamation, "Formatiranje kartice...")
+
+        If msgFormat = DialogResult.Yes Then
+            Shell("cmd /c format " + kartica + " /fs:" + karticaTip + " /v:" + karticaLabel + " /q", AppWinStyle.NormalFocus)
+            ProgressBar1.Value = 0
+        Else
+            MsgBox("Postopek prekinjen.", vbOKOnly + vbInformation)
+        End If
+
+    End Sub
+
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
+        Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
+        Dim d As DriveInfo
+        Dim totalSize
+        Dim availSize
+        Dim usedSize
+
+        For Each d In allDrives
+            If d.Name = ComboBox1.Text Then
+                totalSize = Format(d.TotalSize / 1000 / 1000, "0")
+                availSize = Format(d.AvailableFreeSpace / 1000 / 1000, "0")
+                usedSize = totalSize - availSize
+                LabelSize.Text = totalSize.ToString + "/" + availSize.ToString + " MB"
+                TextBoxPogonIme.Text = d.VolumeLabel.ToString
+                LabelTip.Text = d.DriveFormat.ToString
+                ProgressBar1.Maximum = totalSize
+                ProgressBar1.Value = usedSize
+            End If
+        Next
+
+        Button_Format.Enabled = True
+        Button_Pripravi.Enabled = True
+
+    End Sub
+
+    Private Sub Button_Zapri_Click(sender As Object, e As EventArgs) Handles Button_Zapri.Click
+        Me.Close()
+
+    End Sub
+End Class

DialogProjektUvoz.Designer.vb

@@ -0,0 +1,214 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class DialogProjektUvoz
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DialogProjektUvoz))
+        Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Test Projekt", 1)
+        Dim ListViewItem2 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Mapa Projekt 2", 4)
+        Dim ListViewItem3 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Mapa Projekt 3", 4)
+        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+        Me.OK_Button = New System.Windows.Forms.Button()
+        Me.Cancel_Button = New System.Windows.Forms.Button()
+        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+        Me.ListView1 = New System.Windows.Forms.ListView()
+        Me.colProjIme = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+        Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.TableLayoutPanel1.SuspendLayout()
+        Me.TableLayoutPanel2.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'TableLayoutPanel1
+        '
+        Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TableLayoutPanel1.ColumnCount = 2
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+        Me.TableLayoutPanel1.Location = New System.Drawing.Point(276, 270)
+        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+        Me.TableLayoutPanel1.RowCount = 1
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
+        Me.TableLayoutPanel1.TabIndex = 0
+        '
+        'OK_Button
+        '
+        Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+        Me.OK_Button.Location = New System.Drawing.Point(3, 3)
+        Me.OK_Button.Name = "OK_Button"
+        Me.OK_Button.Size = New System.Drawing.Size(67, 23)
+        Me.OK_Button.TabIndex = 0
+        Me.OK_Button.Text = "OK"
+        '
+        'Cancel_Button
+        '
+        Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
+        Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
+        Me.Cancel_Button.Name = "Cancel_Button"
+        Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
+        Me.Cancel_Button.TabIndex = 1
+        Me.Cancel_Button.Text = "Cancel"
+        '
+        'ImageList1
+        '
+        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+        Me.ImageList1.Images.SetKeyName(0, "icons8-folder-tree-50.png")
+        Me.ImageList1.Images.SetKeyName(1, "icons8-folder-50-2.png")
+        Me.ImageList1.Images.SetKeyName(2, "icons8-error-48.png")
+        Me.ImageList1.Images.SetKeyName(3, "icons8-done-50.png")
+        Me.ImageList1.Images.SetKeyName(4, "icons8-close-50.png")
+        Me.ImageList1.Images.SetKeyName(5, "icons8-ok-50.png")
+        Me.ImageList1.Images.SetKeyName(6, "icons8-cancel-50.png")
+        '
+        'ListView1
+        '
+        Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.colProjIme})
+        Me.ListView1.FullRowSelect = True
+        Me.ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
+        Me.ListView1.HideSelection = False
+        ListViewItem1.StateImageIndex = 0
+        Me.ListView1.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1, ListViewItem2, ListViewItem3})
+        Me.ListView1.LabelWrap = False
+        Me.ListView1.Location = New System.Drawing.Point(13, 13)
+        Me.ListView1.Name = "ListView1"
+        Me.ListView1.ShowGroups = False
+        Me.ListView1.Size = New System.Drawing.Size(257, 286)
+        Me.ListView1.SmallImageList = Me.ImageList1
+        Me.ListView1.TabIndex = 1
+        Me.ListView1.UseCompatibleStateImageBehavior = False
+        Me.ListView1.View = System.Windows.Forms.View.Details
+        '
+        'colProjIme
+        '
+        Me.colProjIme.Text = "Mape"
+        Me.colProjIme.Width = 235
+        '
+        'TableLayoutPanel2
+        '
+        Me.TableLayoutPanel2.ColumnCount = 2
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 75.0!))
+        Me.TableLayoutPanel2.Controls.Add(Me.PictureBox1, 0, 0)
+        Me.TableLayoutPanel2.Controls.Add(Me.Label1, 1, 0)
+        Me.TableLayoutPanel2.Controls.Add(Me.PictureBox2, 0, 1)
+        Me.TableLayoutPanel2.Controls.Add(Me.Label2, 1, 1)
+        Me.TableLayoutPanel2.Location = New System.Drawing.Point(277, 13)
+        Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
+        Me.TableLayoutPanel2.RowCount = 3
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle())
+        Me.TableLayoutPanel2.Size = New System.Drawing.Size(145, 251)
+        Me.TableLayoutPanel2.TabIndex = 2
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImage = Global.TPS1100_Convert.My.Resources.Resources.icons8_folder_50_2
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(3, 3)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(30, 24)
+        Me.PictureBox1.TabIndex = 0
+        Me.PictureBox1.TabStop = False
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(39, 8)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(49, 13)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Obstoječ"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.BackgroundImage = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
+        Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox2.Location = New System.Drawing.Point(3, 33)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(30, 24)
+        Me.PictureBox2.TabIndex = 0
+        Me.PictureBox2.TabStop = False
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(39, 38)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(57, 13)
+        Me.Label2.TabIndex = 1
+        Me.Label2.Text = "Ni naložen"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'DialogProjektUvoz
+        '
+        Me.AcceptButton = Me.OK_Button
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.CancelButton = Me.Cancel_Button
+        Me.ClientSize = New System.Drawing.Size(434, 311)
+        Me.Controls.Add(Me.TableLayoutPanel2)
+        Me.Controls.Add(Me.ListView1)
+        Me.Controls.Add(Me.TableLayoutPanel1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "DialogProjektUvoz"
+        Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Uvoz Projektov"
+        Me.TopMost = True
+        Me.TableLayoutPanel1.ResumeLayout(False)
+        Me.TableLayoutPanel2.ResumeLayout(False)
+        Me.TableLayoutPanel2.PerformLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+    Friend WithEvents OK_Button As System.Windows.Forms.Button
+    Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+    Friend WithEvents ImageList1 As ImageList
+    Friend WithEvents ListView1 As ListView
+    Friend WithEvents colProjIme As ColumnHeader
+    Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents PictureBox2 As PictureBox
+    Friend WithEvents Label2 As Label
+End Class

DialogProjektUvoz.vb

@@ -0,0 +1,18 @@
+Imports System.Windows.Forms
+
+Public Class DialogProjektUvoz
+
+    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+        Me.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.Close()
+    End Sub
+
+    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+    Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
+
+    End Sub
+End Class

DialogZavarovanje.Designer.vb

@@ -0,0 +1,215 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class DialogZavarovanje
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DialogZavarovanje))
+        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+        Me.OK_Button = New System.Windows.Forms.Button()
+        Me.Cancel_Button = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.ComboBox1 = New System.Windows.Forms.ComboBox()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.LabelSize = New System.Windows.Forms.Label()
+        Me.TableLayoutPanel1.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TableLayoutPanel2.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'TableLayoutPanel1
+        '
+        Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TableLayoutPanel1.ColumnCount = 2
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
+        Me.TableLayoutPanel1.Location = New System.Drawing.Point(128, 144)
+        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+        Me.TableLayoutPanel1.RowCount = 1
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.Size = New System.Drawing.Size(196, 40)
+        Me.TableLayoutPanel1.TabIndex = 0
+        '
+        'OK_Button
+        '
+        Me.OK_Button.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.OK_Button.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_advance2_24
+        Me.OK_Button.Location = New System.Drawing.Point(3, 3)
+        Me.OK_Button.Name = "OK_Button"
+        Me.OK_Button.Size = New System.Drawing.Size(92, 34)
+        Me.OK_Button.TabIndex = 0
+        Me.OK_Button.Text = "Zavaruj"
+        Me.OK_Button.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
+        '
+        'Cancel_Button
+        '
+        Me.Cancel_Button.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Cancel_Button.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_24
+        Me.Cancel_Button.Location = New System.Drawing.Point(122, 3)
+        Me.Cancel_Button.Name = "Cancel_Button"
+        Me.Cancel_Button.Size = New System.Drawing.Size(71, 34)
+        Me.Cancel_Button.TabIndex = 1
+        Me.Cancel_Button.Text = "Zapri"
+        Me.Cancel_Button.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.Location = New System.Drawing.Point(72, 12)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(252, 50)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Izberi pogon kartice za zavarovanje." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Podatki bodo arhivirani v mapo ""Zavarovanja" &
+    """."
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_micro_sd_50
+        Me.PictureBox1.Location = New System.Drawing.Point(12, 12)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(54, 50)
+        Me.PictureBox1.TabIndex = 2
+        Me.PictureBox1.TabStop = False
+        '
+        'TableLayoutPanel2
+        '
+        Me.TableLayoutPanel2.ColumnCount = 3
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
+        Me.TableLayoutPanel2.Controls.Add(Me.Label4, 0, 1)
+        Me.TableLayoutPanel2.Controls.Add(Me.Label2, 0, 0)
+        Me.TableLayoutPanel2.Controls.Add(Me.ComboBox1, 1, 0)
+        Me.TableLayoutPanel2.Controls.Add(Me.TextBox1, 1, 1)
+        Me.TableLayoutPanel2.Controls.Add(Me.LabelSize, 2, 0)
+        Me.TableLayoutPanel2.Location = New System.Drawing.Point(13, 69)
+        Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
+        Me.TableLayoutPanel2.RowCount = 2
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel2.Size = New System.Drawing.Size(308, 69)
+        Me.TableLayoutPanel2.TabIndex = 3
+        '
+        'Label4
+        '
+        Me.Label4.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label4.Location = New System.Drawing.Point(34, 42)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(40, 18)
+        Me.Label4.TabIndex = 4
+        Me.Label4.Text = "Arhiv"
+        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(22, 8)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(52, 18)
+        Me.Label2.TabIndex = 0
+        Me.Label2.Text = "Pogon"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'ComboBox1
+        '
+        Me.ComboBox1.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.ComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.ComboBox1.FormattingEnabled = True
+        Me.ComboBox1.Location = New System.Drawing.Point(80, 4)
+        Me.ComboBox1.Name = "ComboBox1"
+        Me.ComboBox1.Size = New System.Drawing.Size(100, 26)
+        Me.ComboBox1.TabIndex = 1
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBox1.Location = New System.Drawing.Point(80, 39)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(148, 24)
+        Me.TextBox1.TabIndex = 2
+        '
+        'LabelSize
+        '
+        Me.LabelSize.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.LabelSize.AutoSize = True
+        Me.LabelSize.Location = New System.Drawing.Point(234, 10)
+        Me.LabelSize.Name = "LabelSize"
+        Me.LabelSize.Size = New System.Drawing.Size(44, 13)
+        Me.LabelSize.TabIndex = 5
+        Me.LabelSize.Text = "Velikost"
+        Me.LabelSize.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'DialogZavarovanje
+        '
+        Me.AcceptButton = Me.OK_Button
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.CancelButton = Me.Cancel_Button
+        Me.ClientSize = New System.Drawing.Size(336, 196)
+        Me.Controls.Add(Me.TableLayoutPanel2)
+        Me.Controls.Add(Me.PictureBox1)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.TableLayoutPanel1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "DialogZavarovanje"
+        Me.ShowInTaskbar = False
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Zavarovanje Kartice"
+        Me.TableLayoutPanel1.ResumeLayout(False)
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TableLayoutPanel2.ResumeLayout(False)
+        Me.TableLayoutPanel2.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
+    Friend WithEvents OK_Button As System.Windows.Forms.Button
+    Friend WithEvents Cancel_Button As System.Windows.Forms.Button
+    Friend WithEvents Label1 As Label
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
+    Friend WithEvents Label2 As Label
+    Friend WithEvents ComboBox1 As ComboBox
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents LabelSize As Label
+End Class

DialogZavarovanje.vb

@@ -0,0 +1,54 @@
+Imports System.Windows.Forms
+Imports System.IO.Compression
+Imports System.IO
+
+Public Class DialogZavarovanje
+    Dim izbranPogon
+    Dim arhivDat As String = "Kartica"
+    Dim arhivCas = System.DateTime.Now.ToString("yyyyMMdd-HHmm")
+    Dim mapaZav = My.Application.Info.DirectoryPath.ToString + "\Zavarovanja\"
+
+    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+        izbranPogon = ComboBox1.Text
+        arhivDat = TextBox1.Text
+        Dim arhivZav = mapaZav + arhivDat + "_" + arhivCas + ".zip"
+
+        ZipFile.CreateFromDirectory(izbranPogon, arhivZav, CompressionLevel.Optimal, False)
+
+        Me.DialogResult = System.Windows.Forms.DialogResult.OK
+        MessageBox.Show("Kartica zavarovana v: " +
+arhivZav.ToString)
+
+    End Sub
+
+    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+    Private Sub DialogZavarovanje_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        For Each drive In IO.DriveInfo.GetDrives
+            'get all removable and fixed drives
+            If drive.DriveType = IO.DriveType.Removable And drive.IsReady Then
+                'add all found drives into the combobox
+                ComboBox1.Items.Add(drive)
+            End If
+        Next
+
+        TextBox1.Text = arhivDat
+    End Sub
+
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
+        Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
+
+        Dim d As DriveInfo
+        For Each d In allDrives
+            If d.Name = ComboBox1.Text Then
+
+                LabelSize.Text = Format(d.TotalSize / 1000 / 1000, "0").ToString + " MB"
+                TextBox1.Text = "Kartica_" + d.VolumeLabel.ToString
+            End If
+        Next
+
+    End Sub
+End Class

Doc/GSI_DataCodes.txt

@@ -0,0 +1,39 @@
+11	Pointnumber
+12	Serial number
+13	Instrument type
+19	Time
+21	Horizontal Angle
+22	Vertical Angle
+25	Horizontal Angle Correction
+31	Slope distance
+32	Horizontal distance
+33	Height difference
+41	Code-Block ID
+42	Information 1
+43	Information 2
+44	Information 3
+45	Information 4
+46	Information 5
+47	Information 6
+48	Information 7
+49	Information 8
+51	PPM/mm
+58	Prism constant
+59	PPM
+71	Remark 1
+72	Remark 2
+73	Remark 3
+74	Remark 4
+75	Remark 5
+76	Remark 6
+77	Remark 7
+78	Remark 8
+79	Remark 9
+81	Easting
+82	Northing
+83	Elevation
+84	St. Easting
+85	St. Northing
+86	St. Height
+87	Reflector height
+88	Instrument height

Form1.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class Form1
     Inherits System.Windows.Forms.Form
 
     'Form overrides dispose to clean up the component list.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class Form1
     '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.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
         Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
@@ -31,49 +31,83 @@ Partial Class Form1
         Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
         Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
         Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
-        Me.tsbFileName = New System.Windows.Forms.ToolStripTextBox()
         Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.ToolStripButtonpROJ = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
+        Me.tsbKartica = New System.Windows.Forms.ToolStripButton()
         Me.tsbOpenFile = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
-        Me.LabelDatoteka = New System.Windows.Forms.ToolStripLabel()
+        Me.ToolStripButtonPripravi = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator()
         Me.ButtonUrediDat = New System.Windows.Forms.ToolStripButton()
         Me.tsbConvert = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButtonGeo = New System.Windows.Forms.ToolStripButton()
         Me.tsbPointsOnly = New System.Windows.Forms.ToolStripButton()
-        Me.tsbHelp = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
         Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
-        Me.tsbSaveAs = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
-        Me.ToolStripComboBox2 = New System.Windows.Forms.ToolStripComboBox()
-        Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
-        Me.ToolStripComboBox1 = New System.Windows.Forms.ToolStripComboBox()
         Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
-        Me.tsbStolpci = New System.Windows.Forms.ToolStripComboBox()
-        Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel()
-        Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
+        Me.OpenFileDialogTocke = New System.Windows.Forms.OpenFileDialog()
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.MenuToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.OdpriGSIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
+        Me.PripraviGSIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
+        Me.PosodobitevToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.InfoOAplikacijiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator()
+        Me.IzhodToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ManagerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsbUvoziTocke = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ShraniToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.OrodjaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PripraviKarticoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsbPripravaFormat = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsbPripravaZav = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
+        Me.tsbMapaZav = New System.Windows.Forms.ToolStripMenuItem()
+        Me.IzračunToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsbPodMer = New System.Windows.Forms.ToolStripMenuItem()
+        Me.tsbHzCor = New System.Windows.Forms.ToolStripMenuItem()
+        Me.FolderDialogKartica = New System.Windows.Forms.FolderBrowserDialog()
+        Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
+        Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
+        Me.tsbFileName = New System.Windows.Forms.ToolStripTextBox()
+        Me.LabelDatoteka = New System.Windows.Forms.ToolStripLabel()
+        Me.tsbZacetek = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.tsbSaveAs = New System.Windows.Forms.ToolStripButton()
         Me.StatusStrip1.SuspendLayout()
         Me.ToolStrip1.SuspendLayout()
+        Me.MenuStrip1.SuspendLayout()
+        Me.ToolStrip2.SuspendLayout()
         Me.SuspendLayout()
         '
         'RichTextBox1
         '
-        Me.RichTextBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.RichTextBox1.BackColor = System.Drawing.SystemColors.ControlLightLight
-        Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.RichTextBox1.Font = New System.Drawing.Font("Courier New", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
-        Me.RichTextBox1.Location = New System.Drawing.Point(9, 39)
+        Me.RichTextBox1.BackColor = System.Drawing.SystemColors.Control
+        Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.RichTextBox1.Cursor = System.Windows.Forms.Cursors.Default
+        Me.RichTextBox1.DetectUrls = False
+        Me.RichTextBox1.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+        Me.RichTextBox1.Location = New System.Drawing.Point(9, 121)
         Me.RichTextBox1.Margin = New System.Windows.Forms.Padding(0)
         Me.RichTextBox1.Name = "RichTextBox1"
         Me.RichTextBox1.ReadOnly = True
-        Me.RichTextBox1.Size = New System.Drawing.Size(1233, 680)
+        Me.RichTextBox1.Size = New System.Drawing.Size(1233, 598)
         Me.RichTextBox1.TabIndex = 1
-        Me.RichTextBox1.Text = ""
+        Me.RichTextBox1.Text = resources.GetString("RichTextBox1.Text")
         Me.RichTextBox1.WordWrap = False
         '
         'StatusStrip1
         '
         Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripProgressBar1, Me.ToolStripStatusLabel1, Me.ToolStripStatusLabel2})
+        Me.StatusStrip1.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow
         Me.StatusStrip1.Location = New System.Drawing.Point(0, 719)
         Me.StatusStrip1.Name = "StatusStrip1"
         Me.StatusStrip1.Size = New System.Drawing.Size(1251, 22)
@@ -93,8 +127,8 @@ Partial Class Form1
         '
         Me.ToolStripStatusLabel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
         Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
-        Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(236, 17)
-        Me.ToolStripStatusLabel1.Text = "Made by 2B geoinformatika d.o.o. / Boris Bilc"
+        Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(157, 17)
+        Me.ToolStripStatusLabel1.Text = "Made by: Boris Bilc / MultiBox"
         '
         'ToolStripStatusLabel2
         '
@@ -114,178 +148,436 @@ Partial Class Form1
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 29)
-        '
-        'tsbFileName
-        '
-        Me.tsbFileName.AutoSize = False
-        Me.tsbFileName.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.tsbFileName.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
-        Me.tsbFileName.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
-        Me.tsbFileName.Name = "tsbFileName"
-        Me.tsbFileName.ReadOnly = True
-        Me.tsbFileName.Size = New System.Drawing.Size(200, 25)
-        Me.tsbFileName.Text = "Odpri GSI datoteko..."
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 52)
         '
         'ToolStrip1
         '
         Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
-        Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(22, 22)
-        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbOpenFile, Me.ToolStripSeparator2, Me.LabelDatoteka, Me.tsbFileName, Me.ButtonUrediDat, Me.ToolStripSeparator1, Me.tsbConvert, Me.tsbPointsOnly, Me.tsbHelp, Me.ToolStripSeparator4, Me.tsbSaveAs, Me.ToolStripSeparator3, Me.ToolStripComboBox2, Me.ToolStripLabel2, Me.ToolStripComboBox1, Me.ToolStripLabel1, Me.tsbStolpci, Me.ToolStripLabel3, Me.ToolStripSeparator5})
-        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButtonpROJ, Me.ToolStripButton2, Me.ToolStripSeparator8, Me.tsbKartica, Me.tsbOpenFile, Me.ToolStripButtonPripravi, Me.ToolStripSeparator11, Me.ButtonUrediDat, Me.ToolStripSeparator1, Me.tsbConvert, Me.ToolStripButtonGeo, Me.tsbPointsOnly, Me.ToolStripButton3, Me.ToolStripSeparator4, Me.ToolStripLabel1})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 28)
         Me.ToolStrip1.Name = "ToolStrip1"
-        Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(10, 5, 10, 5)
-        Me.ToolStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
-        Me.ToolStrip1.Size = New System.Drawing.Size(1251, 39)
+        Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0)
+        Me.ToolStrip1.Size = New System.Drawing.Size(1251, 52)
         Me.ToolStrip1.TabIndex = 0
         Me.ToolStrip1.Text = "ToolStrip1"
         '
+        'ToolStripButtonpROJ
+        '
+        Me.ToolStripButtonpROJ.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tree_structure_50
+        Me.ToolStripButtonpROJ.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButtonpROJ.Name = "ToolStripButtonpROJ"
+        Me.ToolStripButtonpROJ.Size = New System.Drawing.Size(51, 49)
+        Me.ToolStripButtonpROJ.Text = "Projekti"
+        Me.ToolStripButtonpROJ.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.ToolStripButtonpROJ.ToolTipText = "Urejenje projektov"
+        '
+        'ToolStripButton2
+        '
+        Me.ToolStripButton2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_product_documents_50
+        Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton2.Name = "ToolStripButton2"
+        Me.ToolStripButton2.Size = New System.Drawing.Size(62, 49)
+        Me.ToolStripButton2.Text = "Odpri Job"
+        Me.ToolStripButton2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.ToolStripButton2.ToolTipText = "Izberi Job iz projekta..."
+        '
+        'ToolStripSeparator8
+        '
+        Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
+        Me.ToolStripSeparator8.Size = New System.Drawing.Size(6, 52)
+        '
+        'tsbKartica
+        '
+        Me.tsbKartica.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_sdb_import_50
+        Me.tsbKartica.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbKartica.Name = "tsbKartica"
+        Me.tsbKartica.Size = New System.Drawing.Size(47, 49)
+        Me.tsbKartica.Text = "Kartica"
+        Me.tsbKartica.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        '
         'tsbOpenFile
         '
-        Me.tsbOpenFile.Image = CType(resources.GetObject("tsbOpenFile.Image"), System.Drawing.Image)
+        Me.tsbOpenFile.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_50
         Me.tsbOpenFile.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbOpenFile.Name = "tsbOpenFile"
-        Me.tsbOpenFile.Size = New System.Drawing.Size(72, 26)
-        Me.tsbOpenFile.Text = "Odpri..."
-        Me.tsbOpenFile.ToolTipText = "Izberi GSI datoteko..."
+        Me.tsbOpenFile.Size = New System.Drawing.Size(61, 49)
+        Me.tsbOpenFile.Text = "Uvozi Job"
+        Me.tsbOpenFile.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.tsbOpenFile.ToolTipText = "Uvozi GSI job v trenutni projekt..."
         '
-        'ToolStripSeparator2
+        'ToolStripButtonPripravi
         '
-        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
-        Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 29)
+        Me.ToolStripButtonPripravi.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
+        Me.ToolStripButtonPripravi.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButtonPripravi.Name = "ToolStripButtonPripravi"
+        Me.ToolStripButtonPripravi.Size = New System.Drawing.Size(73, 49)
+        Me.ToolStripButtonPripravi.Text = "Uvozi Točke"
+        Me.ToolStripButtonPripravi.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.ToolStripButtonPripravi.ToolTipText = "Pripravi GSI iz datoteke z točkami..."
         '
-        'LabelDatoteka
+        'ToolStripSeparator11
         '
-        Me.LabelDatoteka.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.LabelDatoteka.Image = Global.TPS1100_Convert.My.Resources.Resources.Circled_Right_2_24
-        Me.LabelDatoteka.Name = "LabelDatoteka"
-        Me.LabelDatoteka.Size = New System.Drawing.Size(22, 26)
-        Me.LabelDatoteka.Text = "Datoteka"
+        Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
+        Me.ToolStripSeparator11.Size = New System.Drawing.Size(6, 52)
         '
         'ButtonUrediDat
         '
         Me.ButtonUrediDat.Enabled = False
-        Me.ButtonUrediDat.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_edit_50
+        Me.ButtonUrediDat.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_design_48
         Me.ButtonUrediDat.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.ButtonUrediDat.Name = "ButtonUrediDat"
-        Me.ButtonUrediDat.Size = New System.Drawing.Size(61, 26)
+        Me.ButtonUrediDat.Size = New System.Drawing.Size(39, 49)
         Me.ButtonUrediDat.Text = "Uredi"
-        Me.ButtonUrediDat.ToolTipText = "Uredi GSI"
+        Me.ButtonUrediDat.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.ButtonUrediDat.ToolTipText = "Uredi podatke GSI datoteke..."
         '
         'tsbConvert
         '
+        Me.tsbConvert.AutoSize = False
         Me.tsbConvert.Enabled = False
-        Me.tsbConvert.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.tsbConvert.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_land_surveying_48
         Me.tsbConvert.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbConvert.Name = "tsbConvert"
-        Me.tsbConvert.Size = New System.Drawing.Size(73, 26)
-        Me.tsbConvert.Text = "Meritve"
+        Me.tsbConvert.Size = New System.Drawing.Size(55, 49)
+        Me.tsbConvert.Text = "Zapisnik"
+        Me.tsbConvert.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
         Me.tsbConvert.ToolTipText = "Izvozi zapisnik meritev."
         '
+        'ToolStripButtonGeo
+        '
+        Me.ToolStripButtonGeo.AutoSize = False
+        Me.ToolStripButtonGeo.Enabled = False
+        Me.ToolStripButtonGeo.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_drawing_compass_48
+        Me.ToolStripButtonGeo.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButtonGeo.Name = "ToolStripButtonGeo"
+        Me.ToolStripButtonGeo.Size = New System.Drawing.Size(55, 49)
+        Me.ToolStripButtonGeo.Text = "GEO"
+        Me.ToolStripButtonGeo.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.ToolStripButtonGeo.ToolTipText = "Priprava GEO skripte..."
+        '
         'tsbPointsOnly
         '
+        Me.tsbPointsOnly.AutoSize = False
         Me.tsbPointsOnly.Enabled = False
-        Me.tsbPointsOnly.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.tsbPointsOnly.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_connection_status_on_48
+        Me.tsbPointsOnly.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_my_location_50
         Me.tsbPointsOnly.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.tsbPointsOnly.Name = "tsbPointsOnly"
-        Me.tsbPointsOnly.Size = New System.Drawing.Size(64, 26)
+        Me.tsbPointsOnly.Size = New System.Drawing.Size(55, 49)
         Me.tsbPointsOnly.Text = "Točke"
-        Me.tsbPointsOnly.ToolTipText = "Izvozi koordinate točk."
+        Me.tsbPointsOnly.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.tsbPointsOnly.ToolTipText = "Izvozi seznam koordinat točk..."
         '
-        'tsbHelp
+        'ToolStripButton3
         '
-        Me.tsbHelp.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.tsbHelp.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.tsbHelp.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_info_squared_50
-        Me.tsbHelp.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.tsbHelp.Name = "tsbHelp"
-        Me.tsbHelp.Size = New System.Drawing.Size(26, 26)
-        Me.tsbHelp.Text = "Info"
+        Me.ToolStripButton3.Enabled = False
+        Me.ToolStripButton3.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_mesh_48
+        Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton3.Name = "ToolStripButton3"
+        Me.ToolStripButton3.Size = New System.Drawing.Size(48, 49)
+        Me.ToolStripButton3.Text = "Grafika"
+        Me.ToolStripButton3.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.ToolStripButton3.ToolTipText = "Odpri grafiko z točkami..."
         '
         'ToolStripSeparator4
         '
         Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
-        Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 29)
-        '
-        'tsbSaveAs
-        '
-        Me.tsbSaveAs.Enabled = False
-        Me.tsbSaveAs.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
-        Me.tsbSaveAs.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.tsbSaveAs.Name = "tsbSaveAs"
-        Me.tsbSaveAs.Size = New System.Drawing.Size(78, 26)
-        Me.tsbSaveAs.Text = "Shrani ..."
-        '
-        'ToolStripSeparator3
-        '
-        Me.ToolStripSeparator3.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 29)
-        '
-        'ToolStripComboBox2
-        '
-        Me.ToolStripComboBox2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.ToolStripComboBox2.DropDownWidth = 50
-        Me.ToolStripComboBox2.Items.AddRange(New Object() {"Pika", "Vejica"})
-        Me.ToolStripComboBox2.Name = "ToolStripComboBox2"
-        Me.ToolStripComboBox2.Size = New System.Drawing.Size(75, 29)
-        '
-        'ToolStripLabel2
-        '
-        Me.ToolStripLabel2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.ToolStripLabel2.Name = "ToolStripLabel2"
-        Me.ToolStripLabel2.Size = New System.Drawing.Size(63, 26)
-        Me.ToolStripLabel2.Text = "Decimalna"
-        '
-        'ToolStripComboBox1
-        '
-        Me.ToolStripComboBox1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.ToolStripComboBox1.Items.AddRange(New Object() {"Da", "Ne"})
-        Me.ToolStripComboBox1.Name = "ToolStripComboBox1"
-        Me.ToolStripComboBox1.Size = New System.Drawing.Size(75, 29)
-        Me.ToolStripComboBox1.Text = "Da"
+        Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 52)
         '
         'ToolStripLabel1
         '
         Me.ToolStripLabel1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.ToolStripLabel1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
-        Me.ToolStripLabel1.Image = CType(resources.GetObject("ToolStripLabel1.Image"), System.Drawing.Image)
         Me.ToolStripLabel1.Name = "ToolStripLabel1"
-        Me.ToolStripLabel1.Size = New System.Drawing.Size(34, 26)
-        Me.ToolStripLabel1.Text = "Kode"
+        Me.ToolStripLabel1.Size = New System.Drawing.Size(0, 49)
         '
-        'tsbStolpci
+        'OpenFileDialogTocke
         '
-        Me.tsbStolpci.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.tsbStolpci.Items.AddRange(New Object() {"Presledek", "Tabulator"})
-        Me.tsbStolpci.Name = "tsbStolpci"
-        Me.tsbStolpci.Size = New System.Drawing.Size(100, 29)
+        Me.OpenFileDialogTocke.Filter = "Datoteke točk|*.koo;*.txt|All files|*.*"
         '
-        'ToolStripLabel3
+        'MenuStrip1
         '
-        Me.ToolStripLabel3.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.ToolStripLabel3.Name = "ToolStripLabel3"
-        Me.ToolStripLabel3.Size = New System.Drawing.Size(43, 26)
-        Me.ToolStripLabel3.Text = "Stolpci"
+        Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MenuToolStripMenuItem, Me.ToolStripMenuItem1, Me.OrodjaToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(1251, 28)
+        Me.MenuStrip1.TabIndex = 3
+        Me.MenuStrip1.Text = "MenuStrip1"
         '
-        'ToolStripSeparator5
+        'MenuToolStripMenuItem
         '
-        Me.ToolStripSeparator5.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
-        Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 29)
+        Me.MenuToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OdpriGSIToolStripMenuItem, Me.ToolStripSeparator6, Me.PripraviGSIToolStripMenuItem, Me.ToolStripSeparator7, Me.PosodobitevToolStripMenuItem, Me.InfoOAplikacijiToolStripMenuItem, Me.ToolStripSeparator12, Me.IzhodToolStripMenuItem})
+        Me.MenuToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_menu_50
+        Me.MenuToolStripMenuItem.Name = "MenuToolStripMenuItem"
+        Me.MenuToolStripMenuItem.Size = New System.Drawing.Size(85, 24)
+        Me.MenuToolStripMenuItem.Text = "Program"
+        '
+        'OdpriGSIToolStripMenuItem
+        '
+        Me.OdpriGSIToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tools_50
+        Me.OdpriGSIToolStripMenuItem.Name = "OdpriGSIToolStripMenuItem"
+        Me.OdpriGSIToolStripMenuItem.Size = New System.Drawing.Size(153, 26)
+        Me.OdpriGSIToolStripMenuItem.Text = "Nastavitve"
+        Me.OdpriGSIToolStripMenuItem.ToolTipText = "Odpri Nastavitve aplikacije..."
+        '
+        'ToolStripSeparator6
+        '
+        Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
+        Me.ToolStripSeparator6.Size = New System.Drawing.Size(150, 6)
+        '
+        'PripraviGSIToolStripMenuItem
+        '
+        Me.PripraviGSIToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_question_mark_48
+        Me.PripraviGSIToolStripMenuItem.Name = "PripraviGSIToolStripMenuItem"
+        Me.PripraviGSIToolStripMenuItem.Size = New System.Drawing.Size(153, 26)
+        Me.PripraviGSIToolStripMenuItem.Text = "Navodila"
+        Me.PripraviGSIToolStripMenuItem.ToolTipText = "Odpri navodila za uporabo aplikacije..."
+        '
+        'ToolStripSeparator7
+        '
+        Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
+        Me.ToolStripSeparator7.Size = New System.Drawing.Size(150, 6)
+        '
+        'PosodobitevToolStripMenuItem
+        '
+        Me.PosodobitevToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_rotate_48
+        Me.PosodobitevToolStripMenuItem.Name = "PosodobitevToolStripMenuItem"
+        Me.PosodobitevToolStripMenuItem.Size = New System.Drawing.Size(153, 26)
+        Me.PosodobitevToolStripMenuItem.Text = "Posodobitev..."
+        Me.PosodobitevToolStripMenuItem.ToolTipText = "Preveri za nove posodobitve..."
+        '
+        'InfoOAplikacijiToolStripMenuItem
+        '
+        Me.InfoOAplikacijiToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_information_50
+        Me.InfoOAplikacijiToolStripMenuItem.Name = "InfoOAplikacijiToolStripMenuItem"
+        Me.InfoOAplikacijiToolStripMenuItem.Size = New System.Drawing.Size(153, 26)
+        Me.InfoOAplikacijiToolStripMenuItem.Text = "Info"
+        Me.InfoOAplikacijiToolStripMenuItem.ToolTipText = "Pokaži podatke o aplikaciji..."
+        '
+        'ToolStripSeparator12
+        '
+        Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
+        Me.ToolStripSeparator12.Size = New System.Drawing.Size(150, 6)
+        '
+        'IzhodToolStripMenuItem
+        '
+        Me.IzhodToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
+        Me.IzhodToolStripMenuItem.Name = "IzhodToolStripMenuItem"
+        Me.IzhodToolStripMenuItem.Size = New System.Drawing.Size(153, 26)
+        Me.IzhodToolStripMenuItem.Text = "I&zhod"
+        Me.IzhodToolStripMenuItem.ToolTipText = "Izhod iz programa..."
+        '
+        'ToolStripMenuItem1
+        '
+        Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ManagerToolStripMenuItem, Me.ToolStripSeparator10, Me.ToolStripMenuItem2, Me.ToolStripMenuItem4, Me.tsbUvoziTocke, Me.ToolStripSeparator13, Me.ShraniToolStripMenuItem})
+        Me.ToolStripMenuItem1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_folder_tree_50
+        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+        Me.ToolStripMenuItem1.Size = New System.Drawing.Size(79, 24)
+        Me.ToolStripMenuItem1.Text = "Podatki"
+        '
+        'ManagerToolStripMenuItem
+        '
+        Me.ManagerToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tree_structure_50
+        Me.ManagerToolStripMenuItem.Name = "ManagerToolStripMenuItem"
+        Me.ManagerToolStripMenuItem.Size = New System.Drawing.Size(213, 26)
+        Me.ManagerToolStripMenuItem.Text = "&Projekti | Virtualna Kartica"
+        Me.ManagerToolStripMenuItem.ToolTipText = "Urejevalnik projektov"
+        '
+        'ToolStripSeparator10
+        '
+        Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
+        Me.ToolStripSeparator10.Size = New System.Drawing.Size(210, 6)
+        '
+        'ToolStripMenuItem2
+        '
+        Me.ToolStripMenuItem2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_product_documents_50
+        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
+        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(213, 26)
+        Me.ToolStripMenuItem2.Text = "&Odpri Job"
+        Me.ToolStripMenuItem2.ToolTipText = "Odpri GSI Job..."
+        '
+        'ToolStripMenuItem4
+        '
+        Me.ToolStripMenuItem4.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_50
+        Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
+        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(213, 26)
+        Me.ToolStripMenuItem4.Text = "&Uvozi Job"
+        Me.ToolStripMenuItem4.ToolTipText = "Uvozi GSI v aktivni projekt..."
+        '
+        'tsbUvoziTocke
+        '
+        Me.tsbUvoziTocke.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
+        Me.tsbUvoziTocke.Name = "tsbUvoziTocke"
+        Me.tsbUvoziTocke.Size = New System.Drawing.Size(213, 26)
+        Me.tsbUvoziTocke.Text = "Uvozi Točke"
+        Me.tsbUvoziTocke.ToolTipText = "Uvozi TXT/KOO in pretvori v GSI format."
+        '
+        'ToolStripSeparator13
+        '
+        Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
+        Me.ToolStripSeparator13.Size = New System.Drawing.Size(210, 6)
+        '
+        'ShraniToolStripMenuItem
+        '
+        Me.ShraniToolStripMenuItem.Enabled = False
+        Me.ShraniToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
+        Me.ShraniToolStripMenuItem.Name = "ShraniToolStripMenuItem"
+        Me.ShraniToolStripMenuItem.Size = New System.Drawing.Size(213, 26)
+        Me.ShraniToolStripMenuItem.Text = "&Shrani..."
+        Me.ShraniToolStripMenuItem.ToolTipText = "Shrani podatke rezultata procesiranja..."
+        '
+        'OrodjaToolStripMenuItem
+        '
+        Me.OrodjaToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PripraviKarticoToolStripMenuItem, Me.IzračunToolStripMenuItem})
+        Me.OrodjaToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_support_50
+        Me.OrodjaToolStripMenuItem.Name = "OrodjaToolStripMenuItem"
+        Me.OrodjaToolStripMenuItem.Size = New System.Drawing.Size(75, 24)
+        Me.OrodjaToolStripMenuItem.Text = "Orodja"
+        Me.OrodjaToolStripMenuItem.ToolTipText = "Uvozi točke iz TXT v GSI"
+        '
+        'PripraviKarticoToolStripMenuItem
+        '
+        Me.PripraviKarticoToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbPripravaFormat, Me.tsbPripravaZav, Me.ToolStripSeparator3, Me.tsbMapaZav})
+        Me.PripraviKarticoToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_sd_50
+        Me.PripraviKarticoToolStripMenuItem.Name = "PripraviKarticoToolStripMenuItem"
+        Me.PripraviKarticoToolStripMenuItem.Size = New System.Drawing.Size(184, 26)
+        Me.PripraviKarticoToolStripMenuItem.Text = "PC-Kartica"
+        Me.PripraviKarticoToolStripMenuItem.ToolTipText = "Pripravi kartico instrumenta za delo..."
+        '
+        'tsbPripravaFormat
+        '
+        Me.tsbPripravaFormat.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_sdb_import_50
+        Me.tsbPripravaFormat.Name = "tsbPripravaFormat"
+        Me.tsbPripravaFormat.Size = New System.Drawing.Size(184, 26)
+        Me.tsbPripravaFormat.Text = "Priprava Kartice"
+        Me.tsbPripravaFormat.ToolTipText = "Pripravi kartico za delo z instrumentom..."
+        '
+        'tsbPripravaZav
+        '
+        Me.tsbPripravaZav.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_add_to_collection_50
+        Me.tsbPripravaZav.Name = "tsbPripravaZav"
+        Me.tsbPripravaZav.Size = New System.Drawing.Size(184, 26)
+        Me.tsbPripravaZav.Text = "Zavarovanje Kartive"
+        Me.tsbPripravaZav.ToolTipText = "Zavaruj podatke kartice v zavarovanja..."
+        '
+        'ToolStripSeparator3
+        '
+        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(181, 6)
+        '
+        'tsbMapaZav
+        '
+        Me.tsbMapaZav.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_browse_folder_50_2
+        Me.tsbMapaZav.Name = "tsbMapaZav"
+        Me.tsbMapaZav.Size = New System.Drawing.Size(184, 26)
+        Me.tsbMapaZav.Text = "Odpri Zavarovanja"
+        Me.tsbMapaZav.ToolTipText = "Odpri mapo z zavarovanji podatkov..."
+        '
+        'IzračunToolStripMenuItem
+        '
+        Me.IzračunToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbPodMer, Me.tsbHzCor})
+        Me.IzračunToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.digital_32
+        Me.IzračunToolStripMenuItem.Name = "IzračunToolStripMenuItem"
+        Me.IzračunToolStripMenuItem.Size = New System.Drawing.Size(184, 26)
+        Me.IzračunToolStripMenuItem.Text = "Izračun"
+        '
+        'tsbPodMer
+        '
+        Me.tsbPodMer.Name = "tsbPodMer"
+        Me.tsbPodMer.Size = New System.Drawing.Size(252, 22)
+        Me.tsbPodMer.Text = "Podatki Meritve (Stojišče > Točka)"
+        '
+        'tsbHzCor
+        '
+        Me.tsbHzCor.Name = "tsbHzCor"
+        Me.tsbHzCor.Size = New System.Drawing.Size(252, 22)
+        Me.tsbHzCor.Text = "Popravek Orientacije (HzCor)"
+        '
+        'FolderDialogKartica
+        '
+        Me.FolderDialogKartica.RootFolder = System.Environment.SpecialFolder.MyComputer
+        Me.FolderDialogKartica.ShowNewFolderButton = False
+        '
+        'ToolStrip2
+        '
+        Me.ToolStrip2.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
+        Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(24, 24)
+        Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel2, Me.tsbFileName, Me.LabelDatoteka, Me.tsbZacetek, Me.ToolStripSeparator2, Me.tsbSaveAs})
+        Me.ToolStrip2.Location = New System.Drawing.Point(0, 80)
+        Me.ToolStrip2.Name = "ToolStrip2"
+        Me.ToolStrip2.Padding = New System.Windows.Forms.Padding(5)
+        Me.ToolStrip2.Size = New System.Drawing.Size(1251, 41)
+        Me.ToolStrip2.TabIndex = 4
+        Me.ToolStrip2.Text = "ToolStrip2"
+        '
+        'ToolStripLabel2
+        '
+        Me.ToolStripLabel2.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.ToolStripLabel2.ForeColor = System.Drawing.SystemColors.ControlText
+        Me.ToolStripLabel2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_micro_sd_50
+        Me.ToolStripLabel2.Name = "ToolStripLabel2"
+        Me.ToolStripLabel2.Size = New System.Drawing.Size(84, 28)
+        Me.ToolStripLabel2.Text = "<projekt>"
+        Me.ToolStripLabel2.ToolTipText = "Izbran projekt"
+        '
+        'tsbFileName
+        '
+        Me.tsbFileName.AutoSize = False
+        Me.tsbFileName.BackColor = System.Drawing.SystemColors.MenuBar
+        Me.tsbFileName.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.tsbFileName.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
+        Me.tsbFileName.Margin = New System.Windows.Forms.Padding(5, 0, 0, 0)
+        Me.tsbFileName.Name = "tsbFileName"
+        Me.tsbFileName.ReadOnly = True
+        Me.tsbFileName.Size = New System.Drawing.Size(150, 25)
+        '
+        'LabelDatoteka
+        '
+        Me.LabelDatoteka.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.LabelDatoteka.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_window_50
+        Me.LabelDatoteka.Name = "LabelDatoteka"
+        Me.LabelDatoteka.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
+        Me.LabelDatoteka.Size = New System.Drawing.Size(29, 28)
+        Me.LabelDatoteka.ToolTipText = "Ni datoteke"
+        '
+        'tsbZacetek
+        '
+        Me.tsbZacetek.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.tsbZacetek.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_caps_lock_on_50
+        Me.tsbZacetek.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbZacetek.Name = "tsbZacetek"
+        Me.tsbZacetek.Size = New System.Drawing.Size(94, 28)
+        Me.tsbZacetek.Text = "Na Začetek"
+        Me.tsbZacetek.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
+        '
+        'ToolStripSeparator2
+        '
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 31)
+        '
+        'tsbSaveAs
+        '
+        Me.tsbSaveAs.Enabled = False
+        Me.tsbSaveAs.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.tsbSaveAs.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
+        Me.tsbSaveAs.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbSaveAs.Name = "tsbSaveAs"
+        Me.tsbSaveAs.Size = New System.Drawing.Size(87, 28)
+        Me.tsbSaveAs.Text = "Shrani ..."
         '
         'Form1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1251, 741)
+        Me.Controls.Add(Me.ToolStrip2)
         Me.Controls.Add(Me.StatusStrip1)
         Me.Controls.Add(Me.RichTextBox1)
         Me.Controls.Add(Me.ToolStrip1)
+        Me.Controls.Add(Me.MenuStrip1)
         Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MainMenuStrip = Me.MenuStrip1
         Me.MinimumSize = New System.Drawing.Size(1000, 480)
         Me.Name = "Form1"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
@@ -294,6 +586,10 @@ Partial Class Form1
         Me.StatusStrip1.PerformLayout()
         Me.ToolStrip1.ResumeLayout(False)
         Me.ToolStrip1.PerformLayout()
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
+        Me.ToolStrip2.ResumeLayout(False)
+        Me.ToolStrip2.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -304,25 +600,57 @@ Partial Class Form1
     Friend WithEvents SaveFileDialog1 As SaveFileDialog
     Friend WithEvents tsbOpenFile As ToolStripButton
     Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
-    Friend WithEvents tsbFileName As ToolStripTextBox
     Friend WithEvents tsbConvert As ToolStripButton
-    Friend WithEvents tsbSaveAs As ToolStripButton
     Friend WithEvents ToolStrip1 As ToolStrip
-    Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
-    Friend WithEvents ToolStripLabel1 As ToolStripLabel
-    Friend WithEvents ToolStripComboBox1 As ToolStripComboBox
-    Friend WithEvents ToolStripLabel2 As ToolStripLabel
-    Friend WithEvents ToolStripComboBox2 As ToolStripComboBox
     Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
     Friend WithEvents ToolStripStatusLabel2 As ToolStripStatusLabel
     Friend WithEvents tsbPointsOnly As ToolStripButton
-    Friend WithEvents tsbHelp As ToolStripButton
     Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
     Friend WithEvents ButtonUrediDat As ToolStripButton
-    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
-    Friend WithEvents LabelDatoteka As ToolStripLabel
-    Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
-    Friend WithEvents tsbStolpci As ToolStripComboBox
-    Friend WithEvents ToolStripLabel3 As ToolStripLabel
     Friend WithEvents ToolStripProgressBar1 As ToolStripProgressBar
+    Friend WithEvents ToolStripButtonPripravi As ToolStripButton
+    Friend WithEvents OpenFileDialogTocke As OpenFileDialog
+    Friend WithEvents ToolStripButtonGeo As ToolStripButton
+    Friend WithEvents MenuStrip1 As MenuStrip
+    Friend WithEvents MenuToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents OdpriGSIToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents PripraviGSIToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
+    Friend WithEvents InfoOAplikacijiToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents PosodobitevToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator7 As ToolStripSeparator
+    Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
+    Friend WithEvents ManagerToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripLabel1 As ToolStripLabel
+    Friend WithEvents ToolStripButton2 As ToolStripButton
+    Friend WithEvents ToolStripSeparator11 As ToolStripSeparator
+    Friend WithEvents ToolStripButton3 As ToolStripButton
+    Friend WithEvents ToolStripSeparator8 As ToolStripSeparator
+    Friend WithEvents OrodjaToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator10 As ToolStripSeparator
+    Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem4 As ToolStripMenuItem
+    Friend WithEvents IzhodToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator12 As ToolStripSeparator
+    Friend WithEvents PripraviKarticoToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents FolderDialogKartica As FolderBrowserDialog
+    Friend WithEvents ToolStripSeparator13 As ToolStripSeparator
+    Friend WithEvents ShraniToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStrip2 As ToolStrip
+    Friend WithEvents ToolStripLabel2 As ToolStripLabel
+    Friend WithEvents ToolStripButtonpROJ As ToolStripButton
+    Friend WithEvents tsbFileName As ToolStripTextBox
+    Friend WithEvents LabelDatoteka As ToolStripLabel
+    Friend WithEvents tsbZacetek As ToolStripButton
+    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
+    Friend WithEvents tsbSaveAs As ToolStripButton
+    Friend WithEvents tsbUvoziTocke As ToolStripMenuItem
+    Friend WithEvents tsbPripravaFormat As ToolStripMenuItem
+    Friend WithEvents tsbPripravaZav As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
+    Friend WithEvents tsbMapaZav As ToolStripMenuItem
+    Friend WithEvents IzračunToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents tsbPodMer As ToolStripMenuItem
+    Friend WithEvents tsbHzCor As ToolStripMenuItem
+    Friend WithEvents tsbKartica As ToolStripButton
 End Class

Form1.resx

@@ -117,118 +117,62 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <data name="RichTextBox1.Text" xml:space="preserve">
+    <value>Procesiranje GSI datoteke
+=================================================
+1. Izberi "Odpri Job" ali "Uvozi Job" in pokaži GSI datoteko za obdelavo...
+    - Pri uvozu bo izbrana datoteka kopirana v mapo aktivnega projekta.
+    - Po potrebi uredi datoteko z orodjem "Uredi".
+
+2. Izberi opcijo za pripravo podatkov:
+    A. Za pripravo Zapisnika Meritev klikni gumb "Zapisnik Meritev".
+    B. Za izdelavo GEO skripte klikni gumb "GEO Skripta".
+    C. Za izpis seznama koordinat točk klikni gumb "Seznam Točk".
+
+3. Shrani podatke z klikom na gumb "Shrani...".
+
+--------------------------------------------------
+Priprava GSI datoteke iz seznama točk v TXT/KOO
+=================================================
+A. Odpri datoteko z koordinatami točk z klikom na "Uvozi Točke"
+   - Format datoteke: Pt E N H (Ločilo podatkov je lahko presledek ali tabulator)
+
+B. Izbrana datoteka bo pretvorjena v GSI in prikazana v glavnem oknu.
+
+C. Podatke nato shrani z klikom na "Shrani GSI".
+
+=================================================
+
+Podrobna navodila za uporabo aplikacije so dosptona v meniju: "Program" &gt; "Navodila".
+
+Dnevnik procesiranja je zapisan v datoteko...
+Lokacija dnevnika = </value>
+  </data>
   <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>124, 17</value>
+    <value>229, 17</value>
   </metadata>
   <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>241, 17</value>
+    <value>345, 17</value>
   </metadata>
   <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>383, 17</value>
+    <value>486, 17</value>
   </metadata>
   <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <metadata name="OpenFileDialogTocke.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>622, 17</value>
+  </metadata>
+  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>787, 17</value>
+  </metadata>
+  <metadata name="FolderDialogKartica.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>902, 17</value>
+  </metadata>
+  <metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>123, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="tsbOpenFile.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALSSURBVGhD7ZZdSFNhGMefoo+bCJLqsmUXgVsGalhpCHkh
-        YmBUkJKBhETQTV1434VUsyLEijCbH6l3UpkZgtCNejbd1ubmnKZ1Utv8aEoRGcjO+/SOHjnkWTd1NvfC
-        +cEPDuc8593/P87hvGBgYGBgsOFE2mDnYjvcXmyDXm7fvzjfDq8XOqAm1AG7adnkM/8MWubbAPUw1ATh
-        uRaw0NLJJdQKU+FWQL2ceQoLG1JmthHk2WZAPY2VmWmCTPqJ5DDNi0zbAPV23AY/PtmgmR9b9ZCvdRFv
-        wGaKrWWSF/nYCCiCH55ALcXWMtkA8lQDoAhOPoIgxdYy8QDkiceAQsizUmwtfn4x+BBQBGNZKbYWfz3I
-        gXpAEYxlpdhafHUgc1EQ/17Eexdk731AIeRZKbYWJ7/ovgeYaMca0jDYuOe/HLftDeHo1R0U/U+cd0Dm
-        YiKd6z6GGLyiiz+Dl5ZZ4PJRiq/isILMxUQZfpWLOFalq0qgqpPiq/TXgCzdBEyEoZc5iIFK3VX8lW8o
-        PgB7X7wdfRd22Wu3TDus2/i/p6+fX2QhjlYkRMVf0Uw1AKK+Mh/6ylBMz1upBi8ycnYIR86hiLKRM9ep
-        BoDiKe1E72kUUeYtLacasSIldeg5hSLKPCUnqQZ/2V1F1cxdhEL6rthMNXiR4cJy5ipEIZWK0qgGL+I8
-        kc+cBSiay30Fq4iwiWrwIu7jJjach6K5Opw3SxV+g66crcsOc5Q5clEko44jLqqgsmrPDjF7NoqkImX1
-        UHyVaP+hISYd5i+POCpSpo3iqyiDGZ1s0IIiqQxablF8FWXAXBdvOMW9RvFV+MnqdUMiqG5P1oidXDeU
-        +g5Y1O3JGkyy5McdTmXtlgyKr4L95n1xh1NZyaxuT9aIfepX3h78GveGFHSl1/SFomv53pOeGena71ns
-        SY986zqwlIrGsi11m9yR5ybtY2VgYGBgkFwAfgEWSMBIspN1RQAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="ToolStripLabel1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAABGdBTUEAALGPC/xhBQAAEZJJREFUeF7t
-        nQuMXFUdxttuaZECxUR5BBKFRGxLMDwEBUoohOCDxJjIS6SVGuUhSRFQDG8hGCMhUZOCCj6QlzUBBERB
-        aKGQmbl33u/tdhfasu22tgRbHgVDS9fvu3Pu7p07Z3ZmZ849996Z+yW/7HY7d+45//95P2dEihTJoXXr
-        3hoAR4KTwRJwIVgBbgNPgAXio5GCrngiORA3UsfG4uYZsYS5xEzmlmWygzdWKltvHRzccS+c+Tj4N0iA
-        N8EHYB8Yn4JrxddHCqoMMzvTMDPlWDwx7iabG5I5dTrcKV4TKahKpkonyZxPiqU3ZU6dDo+K10woYaTn
-        o7RZnDBSF+HninjCvAW/32Em83eitPkVSpsHwZfFxyN5LRj+WpnzyeDgdplTp8Na8RpLVjWTSA7J3pXL
-        DTuf2wvuAfuLRyN5JdT1T8ocgmrB6ZBOGRavsYQ2xnLZuxAGJLYdsueHQFQatCsYcz4acKticWMNiSdI
-        cg2cuaZQ3PAcithF/ByMPSuff30mf4fxd7gdQtKZqswh02UvShHrPRSK+5HGdxnjCJfsWZuoNGhHMOZ8
-        kKs3bs3AxdImy5hw/EY4ZD5+zsznRwZS6fKixs/XyBfecDuiI6rVbYczfEiIl0rfkx+RPichKg2aCYak
-        87NOwxLkuPFSabTOkHD+M+KxGal05Ur3MzaVyljdc51SroydyXchLOvc70imCtJnpiAqDdyCIeF8Q+r8
-        cnmzzIhs3F3DZ1Pp0u/cz9nPyp7rhFLpzUvxntNk76hUt0mfaYOoNKDg+INBptG4SeS8LTLD2bxbKG78
-        POp/af8/mSrKnumIbG59Gt28gvsdhe6rGJYGPxam6D8J56fdhoWx2yq+UQqk8Hzdsza53HrpM52ABNDw
-        /am0sgR2mzBHfwmOOygWN5NuwyaMdKsW9QSsHtzP27jbDd2A3kfdd7N0qlb/I/1sB5wgTNI/spyfME2n
-        UQn77Whxy4wkpVzeYpUW7u8hCgaAJnAnNFQ90s91wKgwSf8Izj8Qzk84DUpMM9tRrqKja0X0ZFVg4Ltk
-        n+0UDvDY341up/QzHfJbYZb+EBw/Dy3nmG1Mm9ooWnc5liUHncPvy2QGpZ/pBoaRpU11UFnRT84Xpul9
-        Cee/6nZ+MpVXXlyXyurqf5tsdkjFxJKT3WCuME9vC44/ALzidj5R2JjyFMU5n/xdmKf3haJzpcz5hPWr
-        xDj9wPeEeXpfcSP1V5nzCbtYEuMEEoWJ9WNgzS/0heJG8vsy55MOxtJDDxJSSphmQrG4OQfV5A2wVSae
-        SG6DbfahZ7MXv+9ECVpMZ6pfFx8Nn9AAnIvIMFLSRNDuwE+vUB3cXjf6B8dfBDa67YK/oWdTsoacK9Vt
-        w+XyljnikfAJKfkudwRtstl1UkP1KnDkGbSJmcwvhl1STltwMCwDe3Ak013loLf0U8uYYRRKgcNQCnzo
-        jKwN+9f91BisVLe+ZCZz/7DinzCsiat84fV2ZhbfA0cKk4ZPKNL+4Ha+TVHd8Gqg4ZgHHZ7JDlrjCh0k
-        /FXCnOETGjgL4ey9bucTldO3PQ73MSwRJg2fUNw/LUsAZDoTQX1OGcwWJg2XkNNPhbP/53Y+4aSOK6IR
-        zfmRMKn/QoPmUuTsx9GifRr1/D/x84WEmV6dzQ09iy7PY6jnHgYPVCpjp/Pz+P+G1TWEjUFJRCPk7AKH
-        WQ7wU3DmSWjdf9ToUEPWqt2NRlAOfdt96AJZXZ445/PRErafs1f/RrTFw8IN/gk5/rl6x9foZE8eW8Qq
-        Zwb7ADYIrVLVF6Fvfwqcvc/tfJQKkSP18apwh34hAUhzv6oNGR6yB4yCEQF/599knw06dXsXtalZ7udy
-        rMF1gRvVY4NpFVgKFoH9RDQmxL+hCloElpYrY6tKpdFdHqwBUM0YOEpEQa+a5X6Vq3EVUATLwbQnUYrF
-        TXNSqdJyNFSL6UzFapyyjeL4br95H/izorhZ7le4Vr5bNoMLRHC7Fkq1CxC/zWzbcKwiACUD1xN8QwRP
-        v5rl/gBM67JVvBLME0FVpoSRmoeuLVc2cZ7e2njiY4lwnQiWfjXL/ZzClARUJzzv52IRTM+EuF4MPmCc
-        2d7h3gRXOLzmfhEUfyTL/SwafS4Wt4ETRRA9F+J8IhALXIzxQkHbsjYecDUggqFfzXL/NPbHe8EOsFAE
-        UZsQb85sThxMoeAwqlZwAuhA8fqmwme8SyCy3M/hXB/rQi6QOEUET7sQf2aI92xbeJgIWMJ9Vry2qfAZ
-        T50vzf0+jt2zwed5nd9KsAHbBBN28WBGs61Ejs94WzXIcr/PK3r9bQw5BFvc77SLws2j5AbxmqbCZzx3
-        vjT3tzjAwUvWg8AcsQJb7A/WT9qm5aFR06FVApglfnonJIBnJyM3iSSwOmDRf54IWmAEe5wHJjKJNSSu
-        pm3UsgTwVHEjdQBS9ERDx4kPfWDyhAha4ASbPOG0j6Le0U3i6/0T+vknI0JvOyNH2P8vNTnEySM4BKq9
-        y9euYBN2DT+etI+pYp3jBnANOBcsBP6sBUQ1cBxKgq125CYxdE7/PiWCE1jBJk857cPl35J4dAMzAWcB
-        14JHwO3gcnAm8HbPAFL00aDhrDwropmq1+MBrPtPE0EJrGALHifnaDAbOrfA00ZfFEHxRigJDkGkGo51
-        I1zn52FkSyIIgRdsUXLaRfNqZ+tQS0+FRHAQSoK1zkjacGWvR43DW8TrAy/Y4Ra3TTSOlp4lguGtkAjm
-        ohG4yhnRSZRPkLBoO0a8OvCCDY4BdeMmJbXHy0zF2SIYeoSE8IAzojbsIag6qxcMideFRrBB3Z0CXFUk
-        iZcXfFUEQZ+Q4/dMRtawJkXcq4K7LAIfEK8KjWCLuozB/Q+a1kp+UwRBjxJG+no7kjymzaP9fZeJ14VG
-        sMdltl1sNK2YukQEwTvB6bMTZmaZ3SVk67/Zqd6KCN3VbbDLAqfzCc8AkMRNNZeLIKgX6vV5cP5V+DnM
-        CCXM9Hix6Pl08EcgdDthYZ/ZoG7LnKIbTFpxlQiCOsXi5qGow25G/W4tg2IDj+Pcmro2G0UwQifYqu7c
-        H5aUkvipZoV4ffeCw49CMb8SPyeOduHQZlXvtq/nRXBCJ9jredtuRNPu5+7vH0BuX4hc/ggCXXeah+pD
-        mNsksLN/rQSb1c0OEg2lZvezh0gAj7kDTnxaAfSQCFboBJs95LahhnmBW8XrOxdy/y/dASea6jA3K0Ww
-        QifYrOGI3ErV867gHeL1nQsBvcMdcMIVwJIXek1PJYCyutFRGbyDqPsziNHou9UdcIIGoeylXtNTVYDC
-        4XEnH4L7gJr5ElQB17kDbuN4qS56qhHYxTVzMnaCX4BDxSvVCI1A6Q2ZROO0pk3PdAOJoi10W8FPwMHi
-        VWqFKuBsd8BtFKfgduiZgSDSZQbiaSZXAG9vGkECOMsdcBsfVgL3zFAwh85dcWuX18AFYOISa08VS5gN
-        16Ta+HQCSE9MBnU4jvKO+Ep9QhugIfA2Pu0F7Inp4A5XCL/F78NPPbmfQgKY5w68jU8ngIV+QQjpcM/g
-        mPhKvUKAG/YCklxuWBZIrwn9kjDS4TDwJvGVeoWGoPRYdw0HIcgI/aLQLkZR2eXTf1VMPGG+64yAjQc7
-        XdoltMvCSZcZJwYOEl+vRwkjJd0BxEuMXIHTRWg3hhAFW+lzQO2I31RCFSDd+OHTjCAJ6dYwpesohsFn
-        xKu8FRLAamcknCg+AWM6hG5zKFHcc+K5xseK13mnWNw8HO2AFaDojhCJG8nxdLps3Wmn8aqXUG0Pt+yU
-        4MnpyudPtoPjxWu9FxLDAkTkHpQKm52Rc8JWbhc3YU2H0BwQQXJ5z7rNnAlcLF6tT0gI56BU+CMSg7SX
-        UIN34RWsMQMP5g7YFgj8ETFEwxF6vIL+ayIIeoVSYf9YwrwECeIZRFY6ZmDDYpC7hhSuhgn4IVE1WBq6
-        wu0FL4tgqFc2PzQLtByDRkI4FKXC1cj5LwHrHF03bDMovkUksMfEESZ4SZi94F8iGN4ICWA2mMuf4k9T
-        Kp5I3eA2BvFgDoFVQeAOiiQJI606sU/Fz0VQvBcSwcBUJQJKAh6pnnYag3i4nyBQR8XWMHSen8gjZL1Z
-        FdSJUA1Il5OXyp6uIQjEYdE1DF31vs0yERz/ZCRzVomAhh5zQ10fmGgaOvbxuPhJNGyUdRITwfFfyPkD
-        KP4lA0ZKj0xthfYLI5zx1LxQhuv//bkvSCbk/pvrDVIjq/8WETYMPbkyBvHhIhlxZcxkHNng82it/1QE
-        Z7MMcv6xMETDZdDs+0/VEvZ4gETppVGIj3VplDN+hPv9fbggk8PAnxRB818o/l9zG4ZoOg2jFR1fG4c4
-        zAHLQUPVZiZzuo/IdfIDEUT/hVz+Q7dxiM+3iMjYhfCsAkvRJlkE5zVcHGkm8/uhOF+EOC1FHHj83S5n
-        nEgyVfS6R9OKlAiu/0LRfwQaPzvdRiI+rRtsm3JlbE8uPzKaShVHEkZqBGEeBY6Tzmpw/IIjetaMp0eX
-        YjGj8LSVNrqPnAn1bcyjQSj6OQdQZzAbn9YNdgydwB1PnKvg9m1Ob+sowbjHgqWlbTdOoE0xiPSgML3/
-        QjE5EwmAuabO8TZsAGo8IDmM7Mlmh+p2DTlh49K1xuJt8Clh/mAobiTZMpZGgLC+dEQgYpK9cO4pufzw
-        0ah+ZMvuPkYG2o6S4TVUC8+hl3EvSqOvCLMHSygFXpZEYIKA9ASCxkdIAIcIE3Lx7ddjcXMJnP4lMPH3
-        UAgBPh6Obhj+nYQjgdoHSQIPcvTVwoThFxLBr+XOryG7PEnTmblBJifMF25xIgh95/nI6W/JnG/jw5Bw
-        GNA2eeWZ0tmqNaCCRHClzPFOfNpWHmTus4wYZmVyQwOpTNm60BgNwqzM8TY8JVM2mMKxdF6mwLEDH7ed
-        +QFX9QZmXWPHQiKYZ6YKrAoadsS44a4ilgScOs2gWuCYuvP/fdx25hehO/egQUgAs1AVWMuSkMv/4nRo
-        M9BwXAtedP89mw3XCKICVltGDLuQCD7Bn3EjdTgahFwZvEYGnP57cI712UTy0+4E0IfjBltoi74U2gwN
-        J2hovFgpKAwLc/SXajOJjbNvGpePBYWCMEl/CcX/XW7nEx0zcK2ozQRqW+XT/cneYRNy/xy0B7a7nc+1
-        dRIDBQrOcCpKpFy7eKMwSW/LvZEEuX+Z2/kk6d/BE23DaVrO2XdZQnBhR/cneodBsu1k6CpKF5JoulCp
-        Y7jL2Q4rxzM6TAQ89fRCYYr+U8JM8/Zx6bZyFRcs0ykcTOKefNULUuh0Z3g5iDXNRMB9C+cLU/SnDDMj
-        bfyRboeBWTdzEcrkdxrSz3VCobjB8b2TmMlsu2sF3wF6LnUOsmqLH4x3ZMakw7oZCGIV4v5OFQ025nLO
-        Y7i/24bT3S1KG+5dDP/MnyqhEbggljCk5w4RFrXTXUTC6kP2XSqut+O8BRp+P0MvhbeoSd9jmOlmx+hv
-        AaE76NpzoSt4ANoCf5IZs4YxnoNTW+Vg/P8mOOjPeEY6CaWoHbC3UNgwE4mAg1f/db/Dht1Y10DWGyA0
-        p5v6IpQG34Wzd8sMSrhkeoo7iT8oV8bOFN+Tkj2v6IauUSuwEN7zHSTc3fi5RbzzFfAy/vYCGrh/S6XL
-        v0EiuB3Vxk147gjxWKSpFIubxyERVJ2Oc8MGoqvF/T5yvzWpROF56RlFitYjBv5swtALVcKByFGPypxo
-        w4aY2H+/q1rddrp41FKzBKDopI7ub+KM1J7iRvIKOK5hp/Ekxk609k8VH59Q0wSgZgPnueI1kXQI9ekJ
-        gItFUL8aq1EyPBM3Ug/i9ztRCnxBfKxOzRKAgvUFHLOfL14TKahCgmnYyVuDBzZNux1Ap/PwqSpYJV4R
-        KchCQ5Jn9ki7aLn8iNOxu0ABvAgeAXeD68G3wGLwOaD/coZI3Qu5/Xg0JuHz5JMoEe7G7zcbZu7baDMs
-        LpVGj64Obh8QH40UZGXz62eCWeKfkfpRTABMCOKfUmXzQ1FRHSlSJIdQakT1/JSaMeP/yToI3IKwINIA
-        AAAASUVORK5CYII=
-</value>
-  </data>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAkAAAAAAAEAIACAOAAAlgAAAICAAAABACAAKAgBABY5AABgYAAAAQAgAKiUAAA+QQEASEgAAAEA

Form2.Designer.vb

@@ -26,108 +26,229 @@ Partial Class Form2
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form2))
         Me.RichTextBoxEdit = New System.Windows.Forms.RichTextBox()
         Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
         Me.BtnShraniF2 = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
         Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
         Me.ComBoxKoda = New System.Windows.Forms.ToolStripComboBox()
-        Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
-        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
         Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
+        Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox()
+        Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel()
+        Me.ToolStripTextBox2 = New System.Windows.Forms.ToolStripTextBox()
+        Me.ToolStripLabel6 = New System.Windows.Forms.ToolStripLabel()
+        Me.ToolStripTextBox5 = New System.Windows.Forms.ToolStripTextBox()
+        Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel()
+        Me.ToolStripTextBox3 = New System.Windows.Forms.ToolStripTextBox()
+        Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripLabel()
+        Me.ToolStripTextBox4 = New System.Windows.Forms.ToolStripTextBox()
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
         Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
         Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
         Me.SaveFileDialog2 = New System.Windows.Forms.SaveFileDialog()
         Me.MyApplicationBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.MyApplicationBindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
-        Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
-        Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.DatotekaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ShraniToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ShraniKotToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ZapriToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.SkripteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.IzračunMeritveStMerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.IzračunOrientacijeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.MyApplicationBindingSource2 = New System.Windows.Forms.BindingSource(Me.components)
         Me.ToolStrip1.SuspendLayout()
         Me.StatusStrip1.SuspendLayout()
         CType(Me.MyApplicationBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.MyApplicationBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.MenuStrip1.SuspendLayout()
+        CType(Me.MyApplicationBindingSource2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'RichTextBoxEdit
         '
-        Me.RichTextBoxEdit.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.RichTextBoxEdit.BackColor = System.Drawing.Color.Ivory
+        Me.RichTextBoxEdit.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.RichTextBoxEdit.DetectUrls = False
         Me.RichTextBoxEdit.EnableAutoDragDrop = True
-        Me.RichTextBoxEdit.Font = New System.Drawing.Font("Courier New", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.RichTextBoxEdit.Location = New System.Drawing.Point(12, 35)
+        Me.RichTextBoxEdit.Font = New System.Drawing.Font("Courier New", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.RichTextBoxEdit.Location = New System.Drawing.Point(12, 68)
         Me.RichTextBoxEdit.Name = "RichTextBoxEdit"
-        Me.RichTextBoxEdit.Size = New System.Drawing.Size(1060, 551)
+        Me.RichTextBoxEdit.Size = New System.Drawing.Size(1160, 548)
         Me.RichTextBoxEdit.TabIndex = 2
         Me.RichTextBoxEdit.Text = ""
         Me.RichTextBoxEdit.WordWrap = False
         '
         'ToolStrip1
         '
+        Me.ToolStrip1.AutoSize = False
         Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
         Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
-        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BtnShraniF2, Me.ToolStripSeparator3, Me.ToolStripButton3, Me.ToolStripSeparator1, Me.ToolStripLabel1, Me.ComBoxKoda, Me.ToolStripButton2, Me.ToolStripSeparator2, Me.ToolStripButton1})
-        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.BtnShraniF2, Me.ToolStripSeparator3, Me.ToolStripLabel1, Me.ComBoxKoda, Me.ToolStripButton1, Me.ToolStripLabel2, Me.ToolStripTextBox1, Me.ToolStripLabel3, Me.ToolStripTextBox2, Me.ToolStripLabel6, Me.ToolStripTextBox5, Me.ToolStripLabel4, Me.ToolStripTextBox3, Me.ToolStripLabel5, Me.ToolStripTextBox4, Me.ToolStripSeparator2, Me.ToolStripButton2})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 25)
         Me.ToolStrip1.Name = "ToolStrip1"
         Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(10, 5, 10, 0)
-        Me.ToolStrip1.Size = New System.Drawing.Size(1084, 32)
+        Me.ToolStrip1.Size = New System.Drawing.Size(1184, 40)
         Me.ToolStrip1.TabIndex = 3
         Me.ToolStrip1.Text = "ToolStrip1"
         '
+        'ToolStripButton3
+        '
+        Me.ToolStripButton3.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.ToolStripButton3.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
+        Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton3.Name = "ToolStripButton3"
+        Me.ToolStripButton3.Size = New System.Drawing.Size(58, 32)
+        Me.ToolStripButton3.Text = "Zapri"
+        '
         'BtnShraniF2
         '
+        Me.BtnShraniF2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
         Me.BtnShraniF2.Enabled = False
         Me.BtnShraniF2.Image = Global.TPS1100_Convert.My.Resources.Resources.Save_as_24
         Me.BtnShraniF2.ImageTransparentColor = System.Drawing.Color.Magenta
         Me.BtnShraniF2.Name = "BtnShraniF2"
-        Me.BtnShraniF2.Size = New System.Drawing.Size(73, 24)
+        Me.BtnShraniF2.Size = New System.Drawing.Size(73, 32)
         Me.BtnShraniF2.Text = "Shrani..."
         '
-        'ToolStripSeparator1
+        'ToolStripSeparator3
         '
-        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 27)
+        Me.ToolStripSeparator3.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 35)
         '
         'ToolStripLabel1
         '
+        Me.ToolStripLabel1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_scroll_50
         Me.ToolStripLabel1.Name = "ToolStripLabel1"
-        Me.ToolStripLabel1.Size = New System.Drawing.Size(45, 24)
-        Me.ToolStripLabel1.Text = "Koda >"
+        Me.ToolStripLabel1.Size = New System.Drawing.Size(54, 32)
+        Me.ToolStripLabel1.Text = "Koda"
         '
         'ComBoxKoda
         '
-        Me.ComBoxKoda.DropDownWidth = 180
+        Me.ComBoxKoda.AutoSize = False
+        Me.ComBoxKoda.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.ComBoxKoda.DropDownWidth = 200
+        Me.ComBoxKoda.FlatStyle = System.Windows.Forms.FlatStyle.Standard
         Me.ComBoxKoda.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.ComBoxKoda.Items.AddRange(New Object() {"10: Quick Set", "20: Set Azimuth", "30: Resection", "40: Free Station", "50: Ori. & Ht. Transfer", "90: Measured", "99: Imported/User-Entered"})
+        Me.ComBoxKoda.Items.AddRange(New Object() {" ", "1   | Setup: Quick Set", "2   | Setup: Set Azimuth", "3   | Setup: Resection", "4   | Setup: Free Station", "5   | Setup: Ori. & Ht. Transfer", "6   | Measure: Orientation", "7   | Measure: Points", "8   | Points: User/Imported", "9   | Info: Station + Ht.", "10 | Info: Temp. + Press.", "11 | Info: Orientation + Hz"})
+        Me.ComBoxKoda.MaxDropDownItems = 15
         Me.ComBoxKoda.Name = "ComBoxKoda"
-        Me.ComBoxKoda.Size = New System.Drawing.Size(180, 27)
+        Me.ComBoxKoda.Size = New System.Drawing.Size(200, 25)
         Me.ComBoxKoda.ToolTipText = "Izberi kodo..."
         '
-        'ToolStripButton2
+        'ToolStripButton1
         '
-        Me.ToolStripButton2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_advance_48
-        Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.ToolStripButton2.Name = "ToolStripButton2"
-        Me.ToolStripButton2.Size = New System.Drawing.Size(62, 24)
-        Me.ToolStripButton2.Text = "Vstavi"
-        Me.ToolStripButton2.ToolTipText = "Vstavi vrstico..."
+        Me.ToolStripButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.ToolStripButton1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_undo_48
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(65, 32)
+        Me.ToolStripButton1.Text = "Povrni"
+        '
+        'ToolStripLabel2
+        '
+        Me.ToolStripLabel2.Name = "ToolStripLabel2"
+        Me.ToolStripLabel2.Size = New System.Drawing.Size(36, 32)
+        Me.ToolStripLabel2.Text = "PntID"
+        Me.ToolStripLabel2.Visible = False
+        '
+        'ToolStripTextBox1
+        '
+        Me.ToolStripTextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.ToolStripTextBox1.Name = "ToolStripTextBox1"
+        Me.ToolStripTextBox1.Size = New System.Drawing.Size(90, 35)
+        Me.ToolStripTextBox1.Text = "NAME"
+        Me.ToolStripTextBox1.ToolTipText = "Ime točke"
+        Me.ToolStripTextBox1.Visible = False
+        '
+        'ToolStripLabel3
+        '
+        Me.ToolStripLabel3.Name = "ToolStripLabel3"
+        Me.ToolStripLabel3.Size = New System.Drawing.Size(41, 32)
+        Me.ToolStripLabel3.Text = "H Inst."
+        Me.ToolStripLabel3.Visible = False
+        '
+        'ToolStripTextBox2
+        '
+        Me.ToolStripTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.ToolStripTextBox2.Name = "ToolStripTextBox2"
+        Me.ToolStripTextBox2.Size = New System.Drawing.Size(60, 35)
+        Me.ToolStripTextBox2.Text = "0.000"
+        Me.ToolStripTextBox2.ToolTipText = "Višina instrumenta (m)"
+        Me.ToolStripTextBox2.Visible = False
+        '
+        'ToolStripLabel6
+        '
+        Me.ToolStripLabel6.Name = "ToolStripLabel6"
+        Me.ToolStripLabel6.Size = New System.Drawing.Size(21, 32)
+        Me.ToolStripLabel6.Text = "Hz"
+        Me.ToolStripLabel6.Visible = False
+        '
+        'ToolStripTextBox5
+        '
+        Me.ToolStripTextBox5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.ToolStripTextBox5.Name = "ToolStripTextBox5"
+        Me.ToolStripTextBox5.Size = New System.Drawing.Size(70, 35)
+        Me.ToolStripTextBox5.Text = "0.0000"
+        Me.ToolStripTextBox5.ToolTipText = "Hz /Azimut ""D.MMSS"""
+        Me.ToolStripTextBox5.Visible = False
+        '
+        'ToolStripLabel4
+        '
+        Me.ToolStripLabel4.Name = "ToolStripLabel4"
+        Me.ToolStripLabel4.Size = New System.Drawing.Size(73, 32)
+        Me.ToolStripLabel4.Text = "Temperatura"
+        Me.ToolStripLabel4.Visible = False
+        '
+        'ToolStripTextBox3
+        '
+        Me.ToolStripTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.ToolStripTextBox3.Name = "ToolStripTextBox3"
+        Me.ToolStripTextBox3.Size = New System.Drawing.Size(50, 35)
+        Me.ToolStripTextBox3.Text = "20.0"
+        Me.ToolStripTextBox3.ToolTipText = "Temperatura (°C)"
+        Me.ToolStripTextBox3.Visible = False
+        '
+        'ToolStripLabel5
+        '
+        Me.ToolStripLabel5.Name = "ToolStripLabel5"
+        Me.ToolStripLabel5.Size = New System.Drawing.Size(39, 32)
+        Me.ToolStripLabel5.Text = "Pritisk"
+        Me.ToolStripLabel5.Visible = False
+        '
+        'ToolStripTextBox4
+        '
+        Me.ToolStripTextBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
+        Me.ToolStripTextBox4.Name = "ToolStripTextBox4"
+        Me.ToolStripTextBox4.Size = New System.Drawing.Size(60, 35)
+        Me.ToolStripTextBox4.Text = "1013"
+        Me.ToolStripTextBox4.ToolTipText = "Pritisk (mbar)"
+        Me.ToolStripTextBox4.Visible = False
         '
         'ToolStripSeparator2
         '
         Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
-        Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 27)
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 35)
         '
-        'ToolStripButton1
+        'ToolStripButton2
         '
-        Me.ToolStripButton1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_undo_48
-        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.ToolStripButton1.Name = "ToolStripButton1"
-        Me.ToolStripButton1.Size = New System.Drawing.Size(65, 24)
-        Me.ToolStripButton1.Text = "Povrni"
+        Me.ToolStripButton2.Enabled = False
+        Me.ToolStripButton2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_advance_48
+        Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton2.Name = "ToolStripButton2"
+        Me.ToolStripButton2.Size = New System.Drawing.Size(62, 32)
+        Me.ToolStripButton2.Text = "Vstavi"
+        Me.ToolStripButton2.ToolTipText = "Vstavi vrstico..."
         '
         'StatusStrip1
         '
         Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1})
-        Me.StatusStrip1.Location = New System.Drawing.Point(0, 589)
+        Me.StatusStrip1.Location = New System.Drawing.Point(0, 619)
         Me.StatusStrip1.Name = "StatusStrip1"
-        Me.StatusStrip1.Size = New System.Drawing.Size(1084, 22)
+        Me.StatusStrip1.Size = New System.Drawing.Size(1184, 22)
         Me.StatusStrip1.TabIndex = 4
         Me.StatusStrip1.Text = "StatusStrip1"
         '
@@ -149,37 +270,99 @@ Partial Class Form2
         '
         Me.MyApplicationBindingSource1.DataSource = GetType(TPS1100_Convert.My.MyApplication)
         '
-        'ToolStripSeparator3
+        'MenuStrip1
         '
-        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 27)
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DatotekaToolStripMenuItem, Me.SkripteToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(1184, 25)
+        Me.MenuStrip1.TabIndex = 5
+        Me.MenuStrip1.Text = "MenuStrip1"
         '
-        'ToolStripButton3
+        'DatotekaToolStripMenuItem
         '
-        Me.ToolStripButton3.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
-        Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.ToolStripButton3.Name = "ToolStripButton3"
-        Me.ToolStripButton3.Size = New System.Drawing.Size(58, 24)
-        Me.ToolStripButton3.Text = "Zapri"
+        Me.DatotekaToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ShraniToolStripMenuItem, Me.ShraniKotToolStripMenuItem, Me.ToolStripSeparator1, Me.ZapriToolStripMenuItem})
+        Me.DatotekaToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.Save_as_24
+        Me.DatotekaToolStripMenuItem.Name = "DatotekaToolStripMenuItem"
+        Me.DatotekaToolStripMenuItem.Size = New System.Drawing.Size(82, 21)
+        Me.DatotekaToolStripMenuItem.Text = "&Datoteka"
+        '
+        'ShraniToolStripMenuItem
+        '
+        Me.ShraniToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
+        Me.ShraniToolStripMenuItem.Name = "ShraniToolStripMenuItem"
+        Me.ShraniToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
+        Me.ShraniToolStripMenuItem.Text = "Shrani..."
+        '
+        'ShraniKotToolStripMenuItem
+        '
+        Me.ShraniKotToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_compare_50
+        Me.ShraniKotToolStripMenuItem.Name = "ShraniKotToolStripMenuItem"
+        Me.ShraniKotToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
+        Me.ShraniKotToolStripMenuItem.Text = "Shrani Kopijo"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(141, 6)
+        '
+        'ZapriToolStripMenuItem
+        '
+        Me.ZapriToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
+        Me.ZapriToolStripMenuItem.Name = "ZapriToolStripMenuItem"
+        Me.ZapriToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
+        Me.ZapriToolStripMenuItem.Text = "Zapri"
+        '
+        'SkripteToolStripMenuItem
+        '
+        Me.SkripteToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.IzračunMeritveStMerToolStripMenuItem, Me.IzračunOrientacijeToolStripMenuItem})
+        Me.SkripteToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.SkripteToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_stationery_50
+        Me.SkripteToolStripMenuItem.Name = "SkripteToolStripMenuItem"
+        Me.SkripteToolStripMenuItem.Size = New System.Drawing.Size(80, 21)
+        Me.SkripteToolStripMenuItem.Text = "Izračuni"
+        '
+        'IzračunMeritveStMerToolStripMenuItem
+        '
+        Me.IzračunMeritveStMerToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_land_surveying_48
+        Me.IzračunMeritveStMerToolStripMenuItem.Name = "IzračunMeritveStMerToolStripMenuItem"
+        Me.IzračunMeritveStMerToolStripMenuItem.Size = New System.Drawing.Size(261, 22)
+        Me.IzračunMeritveStMerToolStripMenuItem.Text = "Dodaj Meritev (Stoj. > Merjena)"
+        '
+        'IzračunOrientacijeToolStripMenuItem
+        '
+        Me.IzračunOrientacijeToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_drawing_compass_48
+        Me.IzračunOrientacijeToolStripMenuItem.Name = "IzračunOrientacijeToolStripMenuItem"
+        Me.IzračunOrientacijeToolStripMenuItem.Size = New System.Drawing.Size(261, 22)
+        Me.IzračunOrientacijeToolStripMenuItem.Text = "Preračun Hz Orientacije (HzCor)"
+        '
+        'MyApplicationBindingSource2
+        '
+        Me.MyApplicationBindingSource2.DataSource = GetType(TPS1100_Convert.My.MyApplication)
         '
         'Form2
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1084, 611)
+        Me.ClientSize = New System.Drawing.Size(1184, 641)
+        Me.Controls.Add(Me.RichTextBoxEdit)
         Me.Controls.Add(Me.StatusStrip1)
         Me.Controls.Add(Me.ToolStrip1)
-        Me.Controls.Add(Me.RichTextBoxEdit)
+        Me.Controls.Add(Me.MenuStrip1)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MainMenuStrip = Me.MenuStrip1
         Me.Name = "Form2"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
-        Me.Text = "TPS1100 Convert: Settings"
+        Me.Text = "TPS1100 Convert - Urejanje"
         Me.ToolStrip1.ResumeLayout(False)
         Me.ToolStrip1.PerformLayout()
         Me.StatusStrip1.ResumeLayout(False)
         Me.StatusStrip1.PerformLayout()
         CType(Me.MyApplicationBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.MyApplicationBindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
+        CType(Me.MyApplicationBindingSource2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -190,7 +373,6 @@ Partial Class Form2
     Friend WithEvents RichTextBoxEdit As RichTextBox
     Friend WithEvents ToolStrip1 As ToolStrip
     Friend WithEvents BtnShraniF2 As ToolStripButton
-    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
     Friend WithEvents ToolStripLabel1 As ToolStripLabel
     Friend WithEvents ComBoxKoda As ToolStripComboBox
     Friend WithEvents ToolStripButton2 As ToolStripButton
@@ -201,4 +383,24 @@ Partial Class Form2
     Friend WithEvents SaveFileDialog2 As SaveFileDialog
     Friend WithEvents ToolStripButton3 As ToolStripButton
     Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
+    Friend WithEvents ToolStripLabel2 As ToolStripLabel
+    Friend WithEvents ToolStripTextBox1 As ToolStripTextBox
+    Friend WithEvents ToolStripTextBox2 As ToolStripTextBox
+    Friend WithEvents ToolStripLabel3 As ToolStripLabel
+    Friend WithEvents ToolStripLabel4 As ToolStripLabel
+    Friend WithEvents ToolStripTextBox3 As ToolStripTextBox
+    Friend WithEvents ToolStripLabel5 As ToolStripLabel
+    Friend WithEvents ToolStripTextBox4 As ToolStripTextBox
+    Friend WithEvents ToolStripLabel6 As ToolStripLabel
+    Friend WithEvents ToolStripTextBox5 As ToolStripTextBox
+    Friend WithEvents MenuStrip1 As MenuStrip
+    Friend WithEvents DatotekaToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ShraniKotToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ShraniToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
+    Friend WithEvents ZapriToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents SkripteToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents IzračunMeritveStMerToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents IzračunOrientacijeToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents MyApplicationBindingSource2 As BindingSource
 End Class

Form2.resx

@@ -132,6 +132,12 @@
   <metadata name="MyApplicationBindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>341, 17</value>
   </metadata>
+  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>914, 17</value>
+  </metadata>
+  <metadata name="MyApplicationBindingSource2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1029, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

Form2.vb

@@ -1,20 +1,16 @@
-Imports System.IO
+Imports System.Collections.Specialized.BitVector32
+Imports System.IO
 Imports System.Windows.Forms.VisualStyles.VisualStyleElement
 
 Public Class Form2
-
+    
     Public DatotekaSpemembe As Boolean = False
     Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Activated
-        ' PropertyGrid1.SelectedObject = My.Settings
-        ' ' Attribute for the user-scope settings.
-        ' Dim userAttr As New System.Configuration.UserScopedSettingAttribute
-        ' Dim attrs As New System.ComponentModel.AttributeCollection(userAttr)
-        ' PropertyGrid1.BrowsableAttributes = attrs
         Form1.Hide()
         RichTextBoxEdit.Clear()
 
         ' prepare StreamReader
-        Dim streamReader As StreamReader = New StreamReader(My.Settings.ZadnjaMapa)
+        Dim streamReader As StreamReader = New StreamReader(My.Settings.ZadnjaMapa + "\" + My.Settings.Datoteka)
         Dim i As Integer = 0
 
         ' loop untill end of stream
@@ -24,9 +20,10 @@ Public Class Form2
             RichTextBoxEdit.AppendText(line + vbCrLf)
             i = i + 1
         Loop
-        ToolStripStatusLabel1.Text = "Prebrano: " + i.ToString + " | Datoteka: " + My.Settings.ZadnjaMapa
+        ToolStripStatusLabel1.Text = "Prebrano: " + i.ToString + " | Datoteka: " + My.Settings.ZadnjaMapa + "\" + My.Settings.Datoteka
         DatotekaSpemembe = False
         BtnShraniF2.Enabled = False
+        ComBoxKoda.SelectedIndex = 0
         streamReader.Close()
         streamReader.Dispose()
     End Sub
@@ -63,47 +60,84 @@ Public Class Form2
     Private Sub BtnShraniF2_Click(sender As Object, e As EventArgs) Handles BtnShraniF2.Click
         ' SaveFileDialog2.FileName = My.Settings.ZadnjaMapa
         ' If SaveFileDialog2.ShowDialog = DialogResult.OK Then
-        RichTextBoxEdit.SaveFile(My.Settings.ZadnjaMapa, RichTextBoxStreamType.PlainText)
+        RichTextBoxEdit.SaveFile(My.Settings.ZadnjaMapa + "\" + My.Settings.Datoteka, RichTextBoxStreamType.PlainText)
         ToolStripStatusLabel1.Text = "Shranjeno: " + SaveFileDialog2.FileName.ToString
         BtnShraniF2.Enabled = False
         DatotekaSpemembe = False
         ' End If
     End Sub
 
+
     Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
-        RichTextBoxEdit.Focus()
-        RichTextBoxEdit.SelectionStart = RichTextBoxEdit.GetFirstCharIndexOfCurrentLine
-        SendKeys.Send("+{HOME}")
-        If ComBoxKoda.SelectedIndex = 0 Then
-            RichTextBoxEdit.SelectedText = "*410000+0000000000000010 " + vbCrLf
+        ' 0 ---
+        ' 1 Setup:  Quick Set
+        ' 2 Setup: Set Azimuth
+        ' 3 Setup:  Resection
+        ' 4 Setup:  Free Station
+        ' 5 Setup:  Ori. & Ht. Transfer
+        ' 6 Measure: Orientation
+        ' 7 Measure: Points
+        ' 8 Data:   User-Entered
+        ' 9 Info:   Station
+        ' 10 Info:   Temp. & Press.
+        Dim dataTekst As String = ""
+        If ComBoxKoda.SelectedIndex <= 0 Then
+
+        ElseIf ComBoxKoda.SelectedIndex = 1 Then    ' Koda Setup: Quick Set
+            dataTekst = "*410000+" + My.Settings.KodaQuickSet.PadLeft(16, "0") + " "
             BtnShraniF2.Enabled = True
             DatotekaSpemembe = True
-        ElseIf ComBoxKoda.SelectedIndex = 1 Then
-            RichTextBoxEdit.SelectedText = "*410000+0000000000000020 " + vbCrLf
+        ElseIf ComBoxKoda.SelectedIndex = 2 Then    ' Koda Setup: Set Azimut
+            dataTekst = "*410000+" + My.Settings.KodaSetAzi.PadLeft(16, "0") + " "
             BtnShraniF2.Enabled = True
             DatotekaSpemembe = True
-        ElseIf ComBoxKoda.SelectedIndex = 2 Then
-            RichTextBoxEdit.SelectedText = "*410000+0000000000000030 " + vbCrLf
+        ElseIf ComBoxKoda.SelectedIndex = 3 Then    ' Koda Setup: Resection
+            dataTekst = "*410000+" + My.Settings.KodaResection.PadLeft(16, "0") + " "
             BtnShraniF2.Enabled = True
             DatotekaSpemembe = True
-        ElseIf ComBoxKoda.SelectedIndex = 3 Then
-            RichTextBoxEdit.SelectedText = "*410000+0000000000000040 " + vbCrLf
+        ElseIf ComBoxKoda.SelectedIndex = 4 Then    ' Koda Setup: Free Station
+            dataTekst = "*410000+" + My.Settings.KodaFreeStation.PadLeft(16, "0") + " "
             BtnShraniF2.Enabled = True
             DatotekaSpemembe = True
-        ElseIf ComBoxKoda.SelectedIndex = 4 Then
-            RichTextBoxEdit.SelectedText = "*410000+0000000000000050 " + vbCrLf
+        ElseIf ComBoxKoda.SelectedIndex = 5 Then    ' Koda Setup: Ori. & Ht. Transfer
+            dataTekst = "*410000+" + My.Settings.KodaOriHtTrans.PadLeft(16, "0") + " "
             BtnShraniF2.Enabled = True
             DatotekaSpemembe = True
-        ElseIf ComBoxKoda.SelectedIndex = 5 Then
-            RichTextBoxEdit.SelectedText = "*410000+0000000000000090 " + vbCrLf
+        ElseIf ComBoxKoda.SelectedIndex = 6 Then    ' Koda Orientacija
+            dataTekst = "*410000+" + My.Settings.KodaMeasOri.PadLeft(16, "0") + " "
             BtnShraniF2.Enabled = True
             DatotekaSpemembe = True
-        ElseIf ComBoxKoda.SelectedIndex = 6 Then
-            RichTextBoxEdit.SelectedText = "*410000+0000000000000099 " + vbCrLf
+        ElseIf ComBoxKoda.SelectedIndex = 7 Then    ' Koda Meritve
+            dataTekst = "*410000+" + My.Settings.KodaMeas.PadLeft(16, "0") + " "
+            BtnShraniF2.Enabled = True
+            DatotekaSpemembe = True
+        ElseIf ComBoxKoda.SelectedIndex = 8 Then    ' Koda User-Entered/Import
+            dataTekst = "*410000+" + My.Settings.KodaUserImport.PadLeft(16, "0") + " "
+            BtnShraniF2.Enabled = True
+            DatotekaSpemembe = True
+        ElseIf ComBoxKoda.SelectedIndex = 9 Then    ' Koda Stojišče
+            Dim kodaStoj As String = ToolStripTextBox1.Text.PadLeft(16, "0")
+            Dim kodaStojVis As Double = ToolStripTextBox2.Text.Replace(",", ".") * 1000
+            dataTekst = "*410000+" + My.Settings.KodaStojisce.PadLeft(16, "0") + " 71....+" + kodaStoj.PadLeft(16, "0") + " 72....+" + Format(kodaStojVis, "0000000000000000").ToString + " "
+            BtnShraniF2.Enabled = True
+            DatotekaSpemembe = True
+        ElseIf ComBoxKoda.SelectedIndex = 10 Then    ' Koda Podatki Temp./Pritisk
+            Dim kodaVremeTemp As Double = ToolStripTextBox3.Text.Replace(",", ".")
+            Dim kodaVremePrit As Double = ToolStripTextBox4.Text.Replace(",", ".") ' 1 mbar/hPa = 0.750062 Torr
+            dataTekst = "*410000+" + My.Settings.KodaStojisceInfo.PadLeft(16, "0") + " 71....+" + Format(kodaVremeTemp, "0000000000000000").ToString + " 72....+" + Format(kodaVremePrit, "0000000000000000").ToString + " "
+            BtnShraniF2.Enabled = True
+            DatotekaSpemembe = True
+        ElseIf ComBoxKoda.SelectedIndex = 11 Then    ' Koda Orientacija
+            Dim kodaOri As String = ToolStripTextBox1.Text.PadLeft(16, "0")
+            Dim kodaOriHz As Double = ToolStripTextBox5.Text.Replace(",", ".") * 100000
+            dataTekst = "*410000+" + My.Settings.KodaStojisceOri.PadLeft(16, "0") + " 71....+" + kodaOri.PadLeft(16, "0") + " 72....+" + Format(kodaOriHz, "0000000000000000").ToString + " "
             BtnShraniF2.Enabled = True
             DatotekaSpemembe = True
         End If
-
+        RichTextBoxEdit.Focus()
+        RichTextBoxEdit.SelectionStart = RichTextBoxEdit.GetFirstCharIndexOfCurrentLine
+        SendKeys.Send("+{HOME}")
+        RichTextBoxEdit.SelectedText = dataTekst + vbCrLf
     End Sub
 
     Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
@@ -113,4 +147,73 @@ Public Class Form2
     Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
         Me.Close()
     End Sub
+
+    Private Sub ComBoxKoda_Click(sender As Object, e As EventArgs) Handles ComBoxKoda.SelectedIndexChanged
+        If ComBoxKoda.SelectedIndex <= 0 Then
+            ToolStripButton2.Enabled = False
+            ToolStripLabel2.Visible = False
+            ToolStripLabel3.Visible = False
+            ToolStripLabel4.Visible = False
+            ToolStripLabel5.Visible = False
+            ToolStripLabel6.Visible = False
+            ToolStripTextBox1.Visible = False
+            ToolStripTextBox2.Visible = False
+            ToolStripTextBox3.Visible = False
+            ToolStripTextBox4.Visible = False
+            ToolStripTextBox5.Visible = False
+        ElseIf ComBoxKoda.SelectedIndex = 9 Then
+            ToolStripButton2.Enabled = True
+            ToolStripLabel2.Visible = True
+            ToolStripTextBox1.Visible = True
+            ToolStripLabel3.Visible = True
+            ToolStripTextBox2.Visible = True
+            ToolStripLabel4.Visible = False
+            ToolStripTextBox3.Visible = False
+            ToolStripLabel5.Visible = False
+            ToolStripTextBox4.Visible = False
+            ToolStripLabel6.Visible = False
+            ToolStripTextBox5.Visible = False
+        ElseIf ComBoxKoda.SelectedIndex = 10 Then
+            ToolStripButton2.Enabled = True
+            ToolStripLabel2.Visible = False
+            ToolStripTextBox1.Visible = False
+            ToolStripLabel3.Visible = False
+            ToolStripTextBox2.Visible = False
+            ToolStripLabel4.Visible = True
+            ToolStripTextBox3.Visible = True
+            ToolStripLabel5.Visible = True
+            ToolStripTextBox4.Visible = True
+            ToolStripLabel6.Visible = False
+            ToolStripTextBox5.Visible = False
+        ElseIf ComBoxKoda.SelectedIndex = 11 Then
+            ToolStripButton2.Enabled = True
+            ToolStripLabel2.Visible = True
+            ToolStripTextBox1.Visible = True
+            ToolStripLabel3.Visible = False
+            ToolStripTextBox2.Visible = False
+            ToolStripLabel4.Visible = False
+            ToolStripTextBox3.Visible = False
+            ToolStripLabel5.Visible = False
+            ToolStripTextBox4.Visible = False
+            ToolStripLabel6.Visible = True
+            ToolStripTextBox5.Visible = True
+        Else
+            ToolStripButton2.Enabled = True
+            ToolStripLabel2.Visible = False
+            ToolStripLabel3.Visible = False
+            ToolStripLabel4.Visible = False
+            ToolStripLabel5.Visible = False
+            ToolStripLabel6.Visible = False
+            ToolStripTextBox1.Visible = False
+            ToolStripTextBox2.Visible = False
+            ToolStripTextBox3.Visible = False
+            ToolStripTextBox4.Visible = False
+            ToolStripTextBox5.Visible = False
+        End If
+    End Sub
+
+    Private Sub IzračunMeritveStMerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IzračunMeritveStMerToolStripMenuItem.Click
+        FormIzracunMeasure.Show()
+
+    End Sub
 End Class

FormGrafika.Designer.vb

@@ -0,0 +1,120 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class FormGrafika
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    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.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FormGrafika))
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.SuspendLayout()
+        '
+        'Button1
+        '
+        Me.Button1.FlatAppearance.BorderColor = System.Drawing.SystemColors.ButtonShadow
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_mesh_48
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button1.Location = New System.Drawing.Point(1046, 13)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(165, 60)
+        Me.Button1.TabIndex = 0
+        Me.Button1.Text = "&Prikaži"
+        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button1.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.Location = New System.Drawing.Point(1099, 152)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(39, 20)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "#"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label4
+        '
+        Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label4.Location = New System.Drawing.Point(2147, 148)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(45, 22)
+        Me.Label4.TabIndex = 4
+        Me.Label4.Text = "Sojišča:"
+        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Button2
+        '
+        Me.Button2.FlatAppearance.BorderColor = System.Drawing.SystemColors.ButtonShadow
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_24
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button2.Location = New System.Drawing.Point(1046, 79)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(165, 36)
+        Me.Button2.TabIndex = 1
+        Me.Button2.Text = "&Zapri"
+        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button2.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(1046, 156)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(47, 13)
+        Me.Label2.TabIndex = 5
+        Me.Label2.Text = "Stojišča:"
+        '
+        'FormGrafika
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(1224, 1011)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximumSize = New System.Drawing.Size(1240, 1050)
+        Me.MinimumSize = New System.Drawing.Size(1240, 1050)
+        Me.Name = "FormGrafika"
+        Me.Padding = New System.Windows.Forms.Padding(10)
+        Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "TPS1100 - Grafika"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Label2 As Label
+End Class

FormGrafika.vb

@@ -0,0 +1,190 @@
+Imports System.IO
+
+Public Class FormGrafika
+    Public g As Graphics
+
+    Private Sub FormGrafika_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        g = Me.CreateGraphics()
+
+    End Sub
+
+    ' Gumb: Prikaži
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        GrafikaIzris()
+        Form1.tsbSaveAs.Enabled = False
+        Form1.ShraniToolStripMenuItem.Enabled = False
+    End Sub
+
+    ' Gumb: Zapri
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Me.Dispose()
+        Me.Close()
+    End Sub
+
+    Public Sub DrawLineMer(ByVal xPos As Single, ByVal yPos As Single, ByVal xPos2 As Single, ByVal yPos2 As Single)
+        g.DrawLine(Pens.LightGray, New Point(xPos, yPos), New Point(xPos2, yPos2))
+
+    End Sub
+
+    Public Sub GrafikaIzris()
+        Dim dataStolpci As String = ""
+        If My.Settings.Stolpci = 0 Then
+            dataStolpci = " "
+        ElseIf My.Settings.Stolpci = 1 Then
+            dataStolpci = vbTab
+        End If
+
+        Form1.RichTextBox1.Clear()
+        Form1.RichTextBox1.BackColor = Color.PaleTurquoise
+        Form1.RichTextBox1.Text = "Koordinate točk v grafiki..." + vbCrLf
+        Dim streamReader As StreamReader = New StreamReader(Form1.OpenFileDialog1.FileName)
+        Dim i As Integer = 0
+        Dim lin As Integer = 0
+        ' Pripravi variable za stojišče in merjene točke
+        Dim measuredPoints As Integer = 0
+        Dim stojiceSt As Integer = 0
+        Dim meritevSt As Integer = 0
+        Dim dataKoda As Integer = 0
+        Dim staX As Double = 0
+        Dim staY As Double = 0
+        Dim merX As Double = 0
+        Dim merY As Double = 0
+        Dim imeToc As String = ""
+
+        g.DrawRectangle(Pens.Gray, 5, 5, 1000, 1000)
+
+        Do Until streamReader.EndOfStream
+            Form1.ToolStripProgressBar1.Value = i
+            ' Read and Split each line to separate it into fields
+            Dim line() As String = streamReader.ReadLine().Split(" ")
+            ' Remove * sign from index line
+            line(0) = Replace(line(0), "*", "")
+            If Microsoft.VisualBasic.Left(line(0), 2) = "41" Then
+                dataKoda = 1
+            Else
+                dataKoda = 0
+            End If
+
+            If Microsoft.VisualBasic.Left(line(1), 2) = "25" Or Microsoft.VisualBasic.Left(line(1), 2) = "84" Then
+                measuredPoints = 1
+            End If
+            ' Seaparate word index and data
+            For Each readLine As String In line
+
+                If readLine = "" Then
+                    ' do nothing
+                Else
+                    ' wordindex is always 6 characters long and is read fron left to right
+                    Dim wordIndex As String
+                    Dim data As String
+                    Dim numData As Double
+
+                    wordIndex = Microsoft.VisualBasic.Left(readLine, 2)
+                    data = Microsoft.VisualBasic.Right(readLine, 17)
+
+                    If wordIndex = "41" Then
+                        Dim dataInfo As String = Microsoft.VisualBasic.Right(readLine, 16).TrimStart("0"c)
+                        If dataInfo = My.Settings.KodaMeas Then
+                            measuredPoints = 2
+                        ElseIf dataInfo = My.Settings.KodaMeasOri Then
+                            measuredPoints = 3
+                        ElseIf dataInfo = My.Settings.KodaUserImport Then
+                            measuredPoints = 0
+                        Else
+                            measuredPoints = 0
+                        End If
+                    End If
+
+                    If wordIndex = "11" And measuredPoints >= 1 Then
+                        data = Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
+                        imeToc = data
+                        Form1.RichTextBox1.AppendText(data)
+                        i = i + 1
+                    ElseIf wordIndex = "81" And measuredPoints >= 2 Then    ' Target Easting
+                        numData = data / 1000
+                        data = Format(numData, "0.000")
+                        If My.Settings.DecimalnoLocilo = "Pika" Then
+                            data = data.ToString.Replace(",", ".")
+                        End If
+                        merX = (numData - Form1.kooEMin) * Form1.kooFaktor
+                        Form1.RichTextBox1.AppendText(dataStolpci + CInt(merX).ToString)
+                    ElseIf wordIndex = "82" And measuredPoints >= 2 Then    ' Target Northing
+                        numData = data / 1000
+                        data = Format(numData, "0.000")
+                        If My.Settings.DecimalnoLocilo = "Pika" Then
+                            data = data.ToString.Replace(",", ".")
+                        End If
+                        merY = (numData - Form1.kooNMin) * Form1.kooFaktor
+                        Form1.RichTextBox1.AppendText(dataStolpci + CInt(merY).ToString)
+                    ElseIf wordIndex = "83" And measuredPoints >= 2 Then    ' Target Height
+                        numData = data / 1000
+                        data = Format(numData, "0.000")
+                        If My.Settings.DecimalnoLocilo = "Pika" Then
+                            data = data.ToString.Replace(",", ".")
+                        End If
+                        If measuredPoints = 2 Then
+                            Form1.RichTextBox1.AppendText(dataStolpci + "MEAS")
+                            g.DrawRectangle(Pens.Blue, CInt(merX) + 19, CInt(merY) + 19, 2, 2)
+                            g.DrawString(imeToc, DefaultFont, Brushes.Blue, CInt(merX) + 22, CInt(merY) + 22)
+                            ' ElseIf measuredPoints = 4 Then
+                            '     Form1.RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "REF")
+                        ElseIf measuredPoints = 3 Then
+                            Form1.RichTextBox1.AppendText(dataStolpci + "ORI")
+                            g.DrawRectangle(Pens.DarkMagenta, CInt(merX) + 19, CInt(merY) + 19, 2, 2)
+                            g.DrawString(imeToc, DefaultFont, Brushes.Magenta, CInt(merX) + 22, CInt(merY) + 22)
+                            DrawLineMer(CInt(staX) + 20, CInt(staY) + 20, CInt(merX) + 20, CInt(merY) + 20)
+                        End If
+                        If stojiceSt > 0 Then
+                            meritevSt = meritevSt + 1
+                        End If
+                    ElseIf wordIndex = "84" And measuredPoints = 1 Then    ' Station Easting
+                        numData = data / 1000
+                        data = Format(numData, "0.000")
+                        If My.Settings.DecimalnoLocilo = "Pika" Then
+                            data = data.ToString.Replace(",", ".")
+                        End If
+                        staX = (numData - Form1.kooEMin) * Form1.kooFaktor
+                        Form1.RichTextBox1.AppendText(dataStolpci + CInt(staX).ToString)
+                    ElseIf wordIndex = "85" And measuredPoints = 1 Then    ' Station Northing
+                        numData = data / 1000
+                        data = Format(numData, "0.000")
+                        If My.Settings.DecimalnoLocilo = "Pika" Then
+                            data = data.ToString.Replace(",", ".")
+                        End If
+                        staY = (numData - Form1.kooNMin) * Form1.kooFaktor
+                        Form1.RichTextBox1.AppendText(dataStolpci + CInt(staY).ToString)
+                    ElseIf wordIndex = "86" And measuredPoints = 1 Then    ' Station Height
+                        numData = data / 1000
+                        data = Format(numData, "0.000")
+                        If My.Settings.DecimalnoLocilo = "Pika" Then
+                            data = data.ToString.Replace(",", ".")
+                        End If
+                        Form1.RichTextBox1.AppendText(dataStolpci + "STA")
+                        stojiceSt = stojiceSt + 1
+                        meritevSt = 0
+                        Label1.Text = stojiceSt.ToString
+                        g.DrawRectangle(Pens.DarkOrange, CInt(staX) + 18, CInt(staY) + 18, 4, 4)
+                        g.DrawString(imeToc, DefaultFont, Brushes.DarkOrange, CInt(staX) + 25, CInt(staY) + 25)
+                    Else
+                        numData = 0
+                        data = ""
+                    End If
+                End If
+                ' If stojiceSt > 0 And meritevSt > 0 Then
+                ' 
+                '     'DrawLineMer(CInt(staX), CInt(staY), CInt(merX), CInt(merY))
+                ' End If
+            Next
+
+
+            If dataKoda = 0 And measuredPoints >= 1 Then
+                Form1.RichTextBox1.AppendText(vbCrLf)
+            End If
+            lin = lin + 1
+            Form1.ToolStripProgressBar1.Value = lin
+        Loop
+        streamReader.Close()
+
+    End Sub
+
+End Class

FormGsiJobs.Designer.vb

@@ -0,0 +1,664 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class FormGsiJobs
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    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.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FormGsiJobs))
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
+        Me.TSButonNalozi = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.LabelDeloProj = New System.Windows.Forms.Label()
+        Me.LabelDeloMapa = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.LabelIzbProjMapa = New System.Windows.Forms.Label()
+        Me.LabelIzbProj = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.ButtonDelovni = New System.Windows.Forms.Button()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.LabelJobIme = New System.Windows.Forms.Label()
+        Me.ListViewProj = New System.Windows.Forms.ListView()
+        Me.ProjektImeHeader = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+        Me.ListView2 = New System.Windows.Forms.ListView()
+        Me.JobImeHeader = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
+        Me.OpenFileDialogUvoziJob = New System.Windows.Forms.OpenFileDialog()
+        Me.TextBoxJobDat = New System.Windows.Forms.TextBox()
+        Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
+        Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStrip3 = New System.Windows.Forms.ToolStrip()
+        Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.ProjektiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.NovProjektToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.UvoziProjekteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
+        Me.OdpriMapoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton9 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStrip1.SuspendLayout()
+        Me.TableLayoutPanel1.SuspendLayout()
+        Me.ToolStrip2.SuspendLayout()
+        Me.ToolStrip3.SuspendLayout()
+        Me.MenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
+        Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton5, Me.ToolStripSeparator3, Me.TSButonNalozi, Me.ToolStripSeparator2})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(5)
+        Me.ToolStrip1.Size = New System.Drawing.Size(704, 56)
+        Me.ToolStrip1.Stretch = True
+        Me.ToolStrip1.TabIndex = 2
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'ToolStripButton5
+        '
+        Me.ToolStripButton5.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_caps_lock_on_501
+        Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton5.Name = "ToolStripButton5"
+        Me.ToolStripButton5.Size = New System.Drawing.Size(93, 43)
+        Me.ToolStripButton5.Text = "Nastavi Delovni"
+        Me.ToolStripButton5.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        '
+        'ToolStripSeparator3
+        '
+        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 46)
+        '
+        'TSButonNalozi
+        '
+        Me.TSButonNalozi.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
+        Me.TSButonNalozi.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSButonNalozi.Name = "TSButonNalozi"
+        Me.TSButonNalozi.Size = New System.Drawing.Size(65, 43)
+        Me.TSButonNalozi.Text = "Naloži Job"
+        Me.TSButonNalozi.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        '
+        'ToolStripSeparator2
+        '
+        Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 46)
+        '
+        'Label1
+        '
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(12, 80)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(161, 26)
+        Me.Label1.TabIndex = 8
+        Me.Label1.Text = "Projekt"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label2
+        '
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(179, 80)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(160, 26)
+        Me.Label2.TabIndex = 9
+        Me.Label2.Text = "Job (GSI)"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label3
+        '
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(345, 80)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(347, 26)
+        Me.Label3.TabIndex = 10
+        Me.Label3.Text = "Podatki"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'TableLayoutPanel1
+        '
+        Me.TableLayoutPanel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TableLayoutPanel1.ColumnCount = 2
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle())
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle())
+        Me.TableLayoutPanel1.Controls.Add(Me.Label4, 0, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label6, 0, 1)
+        Me.TableLayoutPanel1.Controls.Add(Me.LabelDeloProj, 1, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.LabelDeloMapa, 1, 1)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label7, 0, 4)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label5, 0, 3)
+        Me.TableLayoutPanel1.Controls.Add(Me.LabelIzbProjMapa, 1, 4)
+        Me.TableLayoutPanel1.Controls.Add(Me.LabelIzbProj, 1, 3)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label10, 0, 6)
+        Me.TableLayoutPanel1.Controls.Add(Me.ButtonDelovni, 0, 2)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label12, 1, 2)
+        Me.TableLayoutPanel1.Controls.Add(Me.LabelJobIme, 1, 6)
+        Me.TableLayoutPanel1.Location = New System.Drawing.Point(345, 109)
+        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+        Me.TableLayoutPanel1.RowCount = 7
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
+        Me.TableLayoutPanel1.Size = New System.Drawing.Size(347, 189)
+        Me.TableLayoutPanel1.TabIndex = 11
+        '
+        'Label4
+        '
+        Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label4.Location = New System.Drawing.Point(3, 4)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(113, 16)
+        Me.Label4.TabIndex = 0
+        Me.Label4.Text = "Delovni Projekt"
+        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label6
+        '
+        Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 31)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(113, 13)
+        Me.Label6.TabIndex = 2
+        Me.Label6.Text = "Delovna Mapa"
+        Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'LabelDeloProj
+        '
+        Me.LabelDeloProj.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LabelDeloProj.AutoSize = True
+        Me.LabelDeloProj.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.LabelDeloProj.ForeColor = System.Drawing.Color.ForestGreen
+        Me.LabelDeloProj.Location = New System.Drawing.Point(122, 4)
+        Me.LabelDeloProj.Name = "LabelDeloProj"
+        Me.LabelDeloProj.Size = New System.Drawing.Size(222, 16)
+        Me.LabelDeloProj.TabIndex = 6
+        Me.LabelDeloProj.Text = "<delovni projekt>"
+        Me.LabelDeloProj.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'LabelDeloMapa
+        '
+        Me.LabelDeloMapa.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LabelDeloMapa.AutoSize = True
+        Me.LabelDeloMapa.Location = New System.Drawing.Point(122, 31)
+        Me.LabelDeloMapa.Name = "LabelDeloMapa"
+        Me.LabelDeloMapa.Size = New System.Drawing.Size(222, 13)
+        Me.LabelDeloMapa.TabIndex = 7
+        Me.LabelDeloMapa.Text = "<delovna mapa>"
+        Me.LabelDeloMapa.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label7
+        '
+        Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(3, 106)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(113, 13)
+        Me.Label7.TabIndex = 5
+        Me.Label7.Text = "Lokacija"
+        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label5
+        '
+        Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label5.AutoSize = True
+        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label5.Location = New System.Drawing.Point(3, 80)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(113, 15)
+        Me.Label5.TabIndex = 4
+        Me.Label5.Text = "Izbran Projekt"
+        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'LabelIzbProjMapa
+        '
+        Me.LabelIzbProjMapa.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LabelIzbProjMapa.AutoSize = True
+        Me.LabelIzbProjMapa.Location = New System.Drawing.Point(122, 106)
+        Me.LabelIzbProjMapa.Name = "LabelIzbProjMapa"
+        Me.LabelIzbProjMapa.Size = New System.Drawing.Size(222, 13)
+        Me.LabelIzbProjMapa.TabIndex = 3
+        Me.LabelIzbProjMapa.Text = ".\"
+        Me.LabelIzbProjMapa.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'LabelIzbProj
+        '
+        Me.LabelIzbProj.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LabelIzbProj.AutoSize = True
+        Me.LabelIzbProj.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.LabelIzbProj.ForeColor = System.Drawing.Color.DarkOrange
+        Me.LabelIzbProj.Location = New System.Drawing.Point(122, 79)
+        Me.LabelIzbProj.Name = "LabelIzbProj"
+        Me.LabelIzbProj.Size = New System.Drawing.Size(222, 16)
+        Me.LabelIzbProj.TabIndex = 1
+        Me.LabelIzbProj.Text = "(izberi projekt)"
+        Me.LabelIzbProj.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label10
+        '
+        Me.Label10.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label10.Location = New System.Drawing.Point(3, 163)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(113, 13)
+        Me.Label10.TabIndex = 8
+        Me.Label10.Text = "Izbran Job"
+        Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'ButtonDelovni
+        '
+        Me.ButtonDelovni.BackgroundImage = Global.TPS1100_Convert.My.Resources.Resources.icons8_caps_lock_on_50
+        Me.ButtonDelovni.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.ButtonDelovni.FlatAppearance.BorderSize = 0
+        Me.ButtonDelovni.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.ButtonDelovni.Location = New System.Drawing.Point(3, 53)
+        Me.ButtonDelovni.Name = "ButtonDelovni"
+        Me.ButtonDelovni.Size = New System.Drawing.Size(113, 19)
+        Me.ButtonDelovni.TabIndex = 10
+        Me.ButtonDelovni.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.ButtonDelovni.UseVisualStyleBackColor = True
+        '
+        'Label12
+        '
+        Me.Label12.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label12.AutoSize = True
+        Me.Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.Label12.Location = New System.Drawing.Point(122, 50)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(222, 25)
+        Me.Label12.TabIndex = 11
+        Me.Label12.Text = "Nastavi izbran projekt kot delovni"
+        Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'LabelJobIme
+        '
+        Me.LabelJobIme.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LabelJobIme.AutoSize = True
+        Me.LabelJobIme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.LabelJobIme.ForeColor = System.Drawing.Color.SteelBlue
+        Me.LabelJobIme.Location = New System.Drawing.Point(122, 161)
+        Me.LabelJobIme.Name = "LabelJobIme"
+        Me.LabelJobIme.Size = New System.Drawing.Size(222, 16)
+        Me.LabelJobIme.TabIndex = 12
+        Me.LabelJobIme.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'ListViewProj
+        '
+        Me.ListViewProj.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.ListViewProj.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ProjektImeHeader})
+        Me.ListViewProj.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.ListViewProj.FullRowSelect = True
+        Me.ListViewProj.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
+        Me.ListViewProj.HideSelection = False
+        Me.ListViewProj.LabelWrap = False
+        Me.ListViewProj.Location = New System.Drawing.Point(13, 109)
+        Me.ListViewProj.MultiSelect = False
+        Me.ListViewProj.Name = "ListViewProj"
+        Me.ListViewProj.Size = New System.Drawing.Size(160, 285)
+        Me.ListViewProj.SmallImageList = Me.ImageList1
+        Me.ListViewProj.TabIndex = 12
+        Me.ListViewProj.UseCompatibleStateImageBehavior = False
+        Me.ListViewProj.View = System.Windows.Forms.View.List
+        '
+        'ProjektImeHeader
+        '
+        Me.ProjektImeHeader.Text = "Projekt Ime"
+        Me.ProjektImeHeader.Width = 140
+        '
+        'ImageList1
+        '
+        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+        Me.ImageList1.Images.SetKeyName(0, "icons8-file-GSI-50.png")
+        Me.ImageList1.Images.SetKeyName(1, "icons8-program-50.png")
+        Me.ImageList1.Images.SetKeyName(2, "icons8-sd-50.png")
+        Me.ImageList1.Images.SetKeyName(3, "icons8-product-documents-50.png")
+        Me.ImageList1.Images.SetKeyName(4, "icons8-documents-folder-50.png")
+        '
+        'ListView2
+        '
+        Me.ListView2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.ListView2.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.JobImeHeader})
+        Me.ListView2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.ListView2.FullRowSelect = True
+        Me.ListView2.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
+        Me.ListView2.HideSelection = False
+        Me.ListView2.LargeImageList = Me.ImageList1
+        Me.ListView2.Location = New System.Drawing.Point(179, 109)
+        Me.ListView2.MultiSelect = False
+        Me.ListView2.Name = "ListView2"
+        Me.ListView2.Size = New System.Drawing.Size(160, 285)
+        Me.ListView2.SmallImageList = Me.ImageList1
+        Me.ListView2.TabIndex = 13
+        Me.ListView2.UseCompatibleStateImageBehavior = False
+        Me.ListView2.View = System.Windows.Forms.View.List
+        '
+        'JobImeHeader
+        '
+        Me.JobImeHeader.Text = "Job"
+        Me.JobImeHeader.Width = 140
+        '
+        'OpenFileDialogUvoziJob
+        '
+        Me.OpenFileDialogUvoziJob.Filter = "GSI|*.GSI"
+        '
+        'TextBoxJobDat
+        '
+        Me.TextBoxJobDat.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxJobDat.BackColor = System.Drawing.SystemColors.Control
+        Me.TextBoxJobDat.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxJobDat.Cursor = System.Windows.Forms.Cursors.IBeam
+        Me.TextBoxJobDat.Location = New System.Drawing.Point(352, 306)
+        Me.TextBoxJobDat.Margin = New System.Windows.Forms.Padding(10, 5, 10, 0)
+        Me.TextBoxJobDat.Name = "TextBoxJobDat"
+        Me.TextBoxJobDat.ReadOnly = True
+        Me.TextBoxJobDat.Size = New System.Drawing.Size(333, 20)
+        Me.TextBoxJobDat.TabIndex = 16
+        Me.TextBoxJobDat.WordWrap = False
+        '
+        'ToolStrip2
+        '
+        Me.ToolStrip2.AutoSize = False
+        Me.ToolStrip2.Dock = System.Windows.Forms.DockStyle.None
+        Me.ToolStrip2.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
+        Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(24, 24)
+        Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripSeparator1, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripSeparator6, Me.ToolStripButton9})
+        Me.ToolStrip2.Location = New System.Drawing.Point(13, 397)
+        Me.ToolStrip2.Name = "ToolStrip2"
+        Me.ToolStrip2.RenderMode = System.Windows.Forms.ToolStripRenderMode.Professional
+        Me.ToolStrip2.Size = New System.Drawing.Size(160, 35)
+        Me.ToolStrip2.TabIndex = 15
+        Me.ToolStrip2.Text = "ToolStrip2"
+        '
+        'ToolStripButton2
+        '
+        Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton2.Enabled = False
+        Me.ToolStripButton2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_remove_50
+        Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton2.Name = "ToolStripButton2"
+        Me.ToolStripButton2.Size = New System.Drawing.Size(28, 32)
+        Me.ToolStripButton2.Text = "Odstrani Projekt"
+        Me.ToolStripButton2.ToolTipText = "Odstrani Projekt"
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton1.Enabled = False
+        Me.ToolStripButton1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_add_to_collection_50
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(28, 32)
+        Me.ToolStripButton1.Text = "ToolStripButton1"
+        Me.ToolStripButton1.ToolTipText = "Naredi zavarovanje projekta..."
+        '
+        'ToolStrip3
+        '
+        Me.ToolStrip3.AutoSize = False
+        Me.ToolStrip3.Dock = System.Windows.Forms.DockStyle.None
+        Me.ToolStrip3.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
+        Me.ToolStrip3.ImageScalingSize = New System.Drawing.Size(24, 24)
+        Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton4, Me.ToolStripSeparator5, Me.ToolStripButton7, Me.ToolStripButton6, Me.ToolStripButton8})
+        Me.ToolStrip3.Location = New System.Drawing.Point(179, 397)
+        Me.ToolStrip3.Name = "ToolStrip3"
+        Me.ToolStrip3.RenderMode = System.Windows.Forms.ToolStripRenderMode.Professional
+        Me.ToolStrip3.Size = New System.Drawing.Size(160, 35)
+        Me.ToolStrip3.TabIndex = 15
+        Me.ToolStrip3.Text = "ToolStrip2"
+        '
+        'ToolStripButton6
+        '
+        Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton6.Enabled = False
+        Me.ToolStripButton6.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_recycle_bin_50
+        Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton6.Name = "ToolStripButton6"
+        Me.ToolStripButton6.Size = New System.Drawing.Size(28, 35)
+        Me.ToolStripButton6.Text = "ToolStripButton2"
+        Me.ToolStripButton6.ToolTipText = "Izbrišii Job"
+        '
+        'ToolStripButton7
+        '
+        Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton7.Enabled = False
+        Me.ToolStripButton7.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_product_documents_50
+        Me.ToolStripButton7.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton7.Name = "ToolStripButton7"
+        Me.ToolStripButton7.Size = New System.Drawing.Size(28, 35)
+        Me.ToolStripButton7.Text = "ToolStripButton1"
+        Me.ToolStripButton7.ToolTipText = "Arhiviraj Job"
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ProjektiToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(704, 24)
+        Me.MenuStrip1.TabIndex = 16
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'ProjektiToolStripMenuItem
+        '
+        Me.ProjektiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NovProjektToolStripMenuItem, Me.UvoziProjekteToolStripMenuItem, Me.ToolStripSeparator4, Me.OdpriMapoToolStripMenuItem})
+        Me.ProjektiToolStripMenuItem.Name = "ProjektiToolStripMenuItem"
+        Me.ProjektiToolStripMenuItem.Size = New System.Drawing.Size(56, 20)
+        Me.ProjektiToolStripMenuItem.Text = "Projekt"
+        '
+        'NovProjektToolStripMenuItem
+        '
+        Me.NovProjektToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_folder_tree_50
+        Me.NovProjektToolStripMenuItem.Name = "NovProjektToolStripMenuItem"
+        Me.NovProjektToolStripMenuItem.Size = New System.Drawing.Size(184, 26)
+        Me.NovProjektToolStripMenuItem.Text = "Nov/Dodaj..."
+        Me.NovProjektToolStripMenuItem.ToolTipText = "Ustvari nov projekt..."
+        '
+        'UvoziProjekteToolStripMenuItem
+        '
+        Me.UvoziProjekteToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tree_structure_50
+        Me.UvoziProjekteToolStripMenuItem.Name = "UvoziProjekteToolStripMenuItem"
+        Me.UvoziProjekteToolStripMenuItem.Size = New System.Drawing.Size(184, 26)
+        Me.UvoziProjekteToolStripMenuItem.Text = "Uvozi Mape"
+        Me.UvoziProjekteToolStripMenuItem.ToolTipText = "Uvozi mape projektov..."
+        '
+        'ToolStripSeparator4
+        '
+        Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
+        Me.ToolStripSeparator4.Size = New System.Drawing.Size(153, 6)
+        '
+        'OdpriMapoToolStripMenuItem
+        '
+        Me.OdpriMapoToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_opened_folder_50
+        Me.OdpriMapoToolStripMenuItem.Name = "OdpriMapoToolStripMenuItem"
+        Me.OdpriMapoToolStripMenuItem.Size = New System.Drawing.Size(184, 26)
+        Me.OdpriMapoToolStripMenuItem.Text = "Odpri Mapo..."
+        Me.OdpriMapoToolStripMenuItem.ToolTipText = "Odpri mapo z projekti..."
+        '
+        'ToolStripButton3
+        '
+        Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton3.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_add_folder_50
+        Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton3.Name = "ToolStripButton3"
+        Me.ToolStripButton3.Size = New System.Drawing.Size(28, 32)
+        Me.ToolStripButton3.Text = "Nov/Dodaj"
+        Me.ToolStripButton3.ToolTipText = "Nov/Dodaj"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 35)
+        '
+        'ToolStripButton4
+        '
+        Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton4.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_50
+        Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton4.Name = "ToolStripButton4"
+        Me.ToolStripButton4.Size = New System.Drawing.Size(28, 32)
+        Me.ToolStripButton4.Text = "Uvozi Job"
+        Me.ToolStripButton4.ToolTipText = "Uvozi Job"
+        '
+        'ToolStripSeparator5
+        '
+        Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
+        Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 35)
+        '
+        'ToolStripButton8
+        '
+        Me.ToolStripButton8.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.ToolStripButton8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton8.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
+        Me.ToolStripButton8.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton8.Name = "ToolStripButton8"
+        Me.ToolStripButton8.Size = New System.Drawing.Size(28, 32)
+        Me.ToolStripButton8.Text = "Naloži Job"
+        '
+        'ToolStripButton9
+        '
+        Me.ToolStripButton9.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.ToolStripButton9.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_caps_lock_on_50
+        Me.ToolStripButton9.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton9.Name = "ToolStripButton9"
+        Me.ToolStripButton9.Size = New System.Drawing.Size(28, 32)
+        Me.ToolStripButton9.Text = "Nastavi kot delovni"
+        '
+        'ToolStripSeparator6
+        '
+        Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
+        Me.ToolStripSeparator6.Size = New System.Drawing.Size(6, 35)
+        '
+        'FormGsiJobs
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(704, 441)
+        Me.Controls.Add(Me.TextBoxJobDat)
+        Me.Controls.Add(Me.ToolStrip3)
+        Me.Controls.Add(Me.ToolStrip2)
+        Me.Controls.Add(Me.ListView2)
+        Me.Controls.Add(Me.ListViewProj)
+        Me.Controls.Add(Me.TableLayoutPanel1)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Controls.Add(Me.MenuStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MainMenuStrip = Me.MenuStrip1
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.MinimumSize = New System.Drawing.Size(720, 480)
+        Me.Name = "FormGsiJobs"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "TPS1100 - Projekti"
+        Me.TopMost = True
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.TableLayoutPanel1.ResumeLayout(False)
+        Me.TableLayoutPanel1.PerformLayout()
+        Me.ToolStrip2.ResumeLayout(False)
+        Me.ToolStrip2.PerformLayout()
+        Me.ToolStrip3.ResumeLayout(False)
+        Me.ToolStrip3.PerformLayout()
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents ToolStrip1 As ToolStrip
+    Friend WithEvents TSButonNalozi As ToolStripButton
+    Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
+    Friend WithEvents Label4 As Label
+    Friend WithEvents LabelIzbProj As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents LabelIzbProjMapa As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents LabelDeloProj As Label
+    Friend WithEvents LabelDeloMapa As Label
+    Friend WithEvents Label10 As Label
+    Friend WithEvents ButtonDelovni As Button
+    Friend WithEvents Label12 As Label
+    Friend WithEvents ListViewProj As ListView
+    Friend WithEvents ListView2 As ListView
+    Friend WithEvents ProjektImeHeader As ColumnHeader
+    Friend WithEvents ToolStripButton5 As ToolStripButton
+    Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
+    Friend WithEvents JobImeHeader As ColumnHeader
+    Friend WithEvents OpenFileDialogUvoziJob As OpenFileDialog
+    Friend WithEvents LabelJobIme As Label
+    Friend WithEvents TextBoxJobDat As TextBox
+    Friend WithEvents ToolStrip2 As ToolStrip
+    Friend WithEvents ToolStripButton2 As ToolStripButton
+    Friend WithEvents ToolStripButton1 As ToolStripButton
+    Friend WithEvents ToolStrip3 As ToolStrip
+    Friend WithEvents ToolStripButton6 As ToolStripButton
+    Friend WithEvents ToolStripButton7 As ToolStripButton
+    Friend WithEvents ImageList1 As ImageList
+    Friend WithEvents MenuStrip1 As MenuStrip
+    Friend WithEvents ProjektiToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents NovProjektToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents UvoziProjekteToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents OdpriMapoToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
+    Friend WithEvents ToolStripButton3 As ToolStripButton
+    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
+    Friend WithEvents ToolStripButton4 As ToolStripButton
+    Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
+    Friend WithEvents ToolStripButton9 As ToolStripButton
+    Friend WithEvents ToolStripButton8 As ToolStripButton
+    Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
+End Class

FormGsiJobs.vb

@@ -0,0 +1,348 @@
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Windows.Forms
+
+
+Public Class FormGsiJobs
+
+    Public projektAktiven
+    Public projektAktivenMapa
+    Public projektIzbran
+    Public projektIzbranMapa
+    Public jobIzbran
+    Public jobDatoteka
+
+    ' Funkcije izvedene pri nalaganju okna
+    Private Sub FormGsiJobs_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        projektAktiven = My.Settings.Projekt.ToString
+        projektAktivenMapa = My.Settings.ProjektMapa.ToString
+        LabelDeloProj.Text = projektAktiven
+        LabelDeloMapa.Text = projektAktivenMapa
+
+        ProjektBeriNast()
+
+    End Sub
+
+    Public Sub ProjektBeriNast()
+        Dim datProjektiNast = "tps1100_projekti.txt"
+        Dim i As Integer = 0
+        Dim iselected As Integer = 0
+        ' Uvoz nastavitev iz datototeke
+        If My.Computer.FileSystem.FileExists(datProjektiNast) Then
+            Dim streamReader As StreamReader = New StreamReader(datProjektiNast)
+            Do Until streamReader.EndOfStream
+                ' Read and Split each line to separate it into fields
+                Dim line() As String = streamReader.ReadLine().Split("=")
+
+                If (line(0) IsNot "") Then
+                    Dim projIme As String = line(0)
+                    Dim projMapa As String = line(1)
+                    ListViewProj.Items.Add(projIme).SubItems.Add(projMapa)
+                    If projIme = "Virtualna Kartica" Then
+                        ListViewProj.Items.Item(i).ImageIndex = 2
+                    Else
+                        ListViewProj.Items.Item(i).ImageIndex = 1
+                    End If
+
+                    If projIme = My.Settings.Projekt Then
+                        iselected = i
+                    End If
+
+                    i = i + 1
+                End If
+
+            Loop
+
+            streamReader.Close()
+            streamReader.Dispose()
+            My.Settings.Save()
+            ListViewProj.Items.Item(iselected).Selected = True
+            ListViewProj.Focus()
+        Else
+            ' Izvoz kodiranja v TXT datoteko
+            Dim dataNast As String = ""
+
+            dataNast = dataNast + "Virtualna Kartica=Virtualna Kartica\GSI" + vbCrLf
+            dataNast = dataNast + "Test Projekt=Projekti\Test Projekt" + vbCrLf
+
+            My.Computer.FileSystem.WriteAllText(datProjektiNast, dataNast, False)
+        End If
+
+    End Sub
+
+    Public Sub ProjektiShraniNast()
+        Dim datProjektiNast = "tps1100_projekti.txt"
+        ' Uvoz nastavitev iz datototeke
+        If My.Computer.FileSystem.FileExists(datProjektiNast) Then
+            Dim dataProj As ListView.ListViewItemCollection = Me.ListViewProj.Items
+            Dim item As ListViewItem
+            Dim ime As String = ""
+            Dim mapa As String = ""
+            Dim dataOut As String = ""
+            For Each item In dataProj
+                ime = item.SubItems(0).Text
+                mapa = item.SubItems(1).Text
+                dataOut = dataOut + ime + "=" + mapa + vbCrLf
+            Next
+            My.Computer.FileSystem.WriteAllText(datProjektiNast, dataOut, False)
+        End If
+    End Sub
+
+    Public Sub UvoziMapeProj()
+        Dim appPath As String = My.Application.Info.DirectoryPath.ToString
+        Dim mapaProjekti As String = "\Projekti"
+        Dim pathProjekti As String = appPath + mapaProjekti
+        Dim mapeSeznam = My.Computer.FileSystem.GetDirectories(pathProjekti)
+        Dim mapa
+        Dim i As Integer = 1
+
+        ListViewProj.Clear()
+        ListViewProj.Items.Add("Virtualna Kartica", 2).SubItems.Add("Virtualna Kartica\GSI")
+
+        For Each mapa In mapeSeznam
+            Dim projIme As String = Path.GetFullPath(mapa).Replace(pathProjekti + "\", "").ToString
+            Dim projMapa As String = "Projekti\" + projIme
+
+            ListViewProj.Items.Add(projIme, 1).SubItems.Add(projMapa)
+
+            i = i + 1
+        Next
+
+    End Sub
+
+    Private Sub UvoziGsiJob()
+        If OpenFileDialogUvoziJob.ShowDialog = DialogResult.OK Then
+            Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString + "\" + My.Settings.ProjektMapa.ToString + "\"
+            Dim fileUvoz = OpenFileDialogUvoziJob.FileName
+            Dim fileIme = Path.GetFileName(OpenFileDialogUvoziJob.FileName)
+            Dim fileIzvoz = delovnaMapa + fileIme
+            My.Computer.FileSystem.CopyFile(fileUvoz, fileIzvoz, True)
+            OpenFileDialogUvoziJob.FileName = fileIzvoz
+
+        End If
+
+        OpenFileDialogUvoziJob.Dispose()
+    End Sub
+
+    Private Sub NastaviDelovniProj()
+        LabelDeloProj.Text = LabelIzbProj.Text
+        LabelDeloMapa.Text = LabelIzbProjMapa.Text
+        My.Settings.Projekt = LabelDeloProj.Text
+        My.Settings.ProjektMapa = LabelDeloMapa.Text
+        My.Settings.Save()
+        If LabelDeloProj.Text = "Virtualna Kartica" Then
+            Form1.ToolStripLabel2.Text = LabelDeloProj.Text
+            Form1.ToolStripLabel2.Image = My.Resources.icons8_micro_sd_50
+        Else
+            Form1.ToolStripLabel2.Text = LabelDeloProj.Text
+            Form1.ToolStripLabel2.Image = My.Resources.icons8_browse_folder_50_2
+        End If
+    End Sub
+
+    Private Sub NaloziJob()
+        LabelDeloProj.Text = LabelIzbProj.Text
+        LabelDeloMapa.Text = LabelIzbProjMapa.Text
+        My.Settings.Projekt = LabelDeloProj.Text
+        My.Settings.ProjektMapa = LabelDeloMapa.Text
+        My.Settings.Save()
+        If LabelDeloProj.Text = "Virtualna Kartica" Then
+            Form1.ToolStripLabel2.Text = LabelDeloProj.Text
+            Form1.ToolStripLabel2.Image = My.Resources.icons8_micro_sd_50
+        Else
+            Form1.ToolStripLabel2.Text = LabelDeloProj.Text
+            Form1.ToolStripLabel2.Image = My.Resources.icons8_browse_folder_50_2
+        End If
+        Form1.datJob = TextBoxJobDat.Text
+        Form1.NaloziGsiJob()
+        Me.Close()
+    End Sub
+
+    Private Sub PreberiJobe()
+        Dim izbran As ListView.SelectedListViewItemCollection = Me.ListViewProj.SelectedItems
+        Dim item As ListViewItem
+        Dim ime As String = ""
+        Dim mapa As String = ""
+        Dim ix As Integer = 0
+
+        For Each item In izbran
+            ime = item.SubItems(0).Text
+            mapa = item.SubItems(1).Text
+        Next
+
+        LabelIzbProj.Text = ime.ToString
+        LabelIzbProjMapa.Text = mapa.ToString
+        Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString + "\" + mapa.ToString
+        projektIzbran = ime.ToString
+        projektIzbranMapa = delovnaMapa
+        Dim datotekeJobi = My.Computer.FileSystem.GetFiles(delovnaMapa, FileIO.SearchOption.SearchTopLevelOnly, "*.GSI")
+        ListView2.Clear()
+        LabelJobIme.Text = ""
+        TextBoxJobDat.Text = ""
+        For Each datJob In datotekeJobi
+            ListView2.Items.Add(Path.GetFileName(datJob).ToString, 0).SubItems.Add(Path.GetFullPath(datJob))
+            ix = ix + 1
+        Next
+
+        If ime = "Virtualna Kartica" Then
+            ToolStripButton1.Enabled = False
+            ToolStripButton2.Enabled = False
+            ToolStripButton6.Enabled = False
+            ToolStripButton7.Enabled = False
+        Else
+            ToolStripButton1.Enabled = True
+            ToolStripButton2.Enabled = True
+            ToolStripButton6.Enabled = False
+            ToolStripButton7.Enabled = False
+        End If
+    End Sub
+
+    Public Sub ArhivirajProjekt()
+        ' Arhiviraj izbran jprojekt
+        Dim arhivCas = System.DateTime.Now.ToString("yyyyMMdd-HHmm")
+        Dim mapaZav = My.Application.Info.DirectoryPath.ToString + "\Zavarovanja\"
+        Dim arhivZav = mapaZav + "Projekt_" + projektIzbran + "_" + arhivCas + ".zip"
+        Dim msgArhivProj = MsgBox("Arhiviram projekt '" + projektIzbran + "'", vbYesNo + vbExclamation, "Arhiviranje Projekta")
+
+        If msgArhivProj = DialogResult.Yes Then
+            ZipFile.CreateFromDirectory(projektIzbranMapa, arhivZav, CompressionLevel.Optimal, False)
+            MessageBox.Show("Kartica zavarovana v: " + vbCrLf + arhivZav.ToString)
+        End If
+
+    End Sub
+
+    Public Sub OdstraniProjekt()
+        ' Izbriši izbran projekt
+        Dim msgDelProj = MsgBox("Odstranim projekt [" + projektIzbran + "]?", vbYesNo + vbCritical, "Brisanje Projekta")
+        If msgDelProj = DialogResult.Yes Then
+            My.Computer.FileSystem.DeleteDirectory(projektIzbranMapa, FileIO.DeleteDirectoryOption.DeleteAllContents, FileIO.RecycleOption.SendToRecycleBin)
+            UvoziMapeProj()
+            ProjektiShraniNast()
+        End If
+    End Sub
+
+    Private Sub ListViewProj_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewProj.SelectedIndexChanged
+        PreberiJobe()
+    End Sub
+
+    Private Sub ListViewProj_DoubleClick(sender As Object, e As EventArgs) Handles ListViewProj.DoubleClick
+        NastaviDelovniProj()
+        Me.Close()
+    End Sub
+
+    Private Sub ButtonDelovni_Click(sender As Object, e As EventArgs) Handles ButtonDelovni.Click, ToolStripButton5.Click
+        NastaviDelovniProj()
+    End Sub
+
+    Private Sub ListView2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView2.SelectedIndexChanged
+        Dim izbran As ListView.SelectedListViewItemCollection = Me.ListView2.SelectedItems
+        Dim item As ListViewItem
+        Dim ime As String = ""
+        Dim mapa As String = ""
+        For Each item In izbran
+            ime = item.SubItems(0).Text
+            mapa = item.SubItems(1).Text
+        Next
+        LabelJobIme.Text = ime.ToString
+        TextBoxJobDat.Text = mapa.ToString
+        If LabelJobIme.Text = "" Then
+            ToolStripButton6.Enabled = False
+            ToolStripButton7.Enabled = False
+        Else
+            ToolStripButton6.Enabled = True
+            ToolStripButton7.Enabled = True
+        End If
+
+        'Dim delovnaJob = My.Application.Info.DirectoryPath.ToString + "\" + mapa.ToString
+        'projektIzbran = ime.ToString
+        'projektIzbranMapa = delovnaMapa
+        'Dim datotekeJobi = My.Computer.FileSystem.GetFiles(delovnaMapa, FileIO.SearchOption.SearchTopLevelOnly, "*.GSI")
+    End Sub
+
+    Private Sub ListView2_DoubleClick(sender As Object, e As EventArgs) Handles ListView2.DoubleClick
+        NaloziJob()
+
+    End Sub
+
+    Private Sub TSButtonUvozi_Click(sender As Object, e As EventArgs)
+        UvoziGsiJob()
+
+    End Sub
+
+    Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
+        ' Arhiviraj izbran job
+        Dim datIzb = TextBoxJobDat.Text
+        Dim datArh = datIzb.Replace(LabelJobIme.Text, "_ARHIV\" + LabelJobIme.Text)
+
+        Dim msgArh = MsgBox("Arhiviram job: " + LabelJobIme.Text, vbOKCancel + vbExclamation, "Arhiviranje Job-a...")
+        If msgArh = DialogResult.OK Then
+            If My.Computer.FileSystem.FileExists(datIzb) Then
+                My.Computer.FileSystem.MoveFile(datIzb, datArh, True)
+            End If
+            ' Ponovno osveži vsebino seznama
+            PreberiJobe()
+        End If
+    End Sub
+
+    Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
+        ' Izbriši izbran job
+        Dim datIzb = TextBoxJobDat.Text
+
+        Dim msgArh = MsgBox("Izbrišem job: " + LabelJobIme.Text, vbOKCancel + vbCritical, "Brisanje Job-a...")
+        If msgArh = DialogResult.OK Then
+            If My.Computer.FileSystem.FileExists(datIzb) Then
+                My.Computer.FileSystem.DeleteFile(datIzb, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)
+            End If
+            ' Ponovno osveži vsebino seznama
+            PreberiJobe()
+        End If
+    End Sub
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        ' Arhiviraj izbran jprojekt
+        ArhivirajProjekt()
+
+    End Sub
+
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+        ' Izbriši izbran projekt
+        OdstraniProjekt()
+    End Sub
+
+    Private Sub NovProjektToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NovProjektToolStripMenuItem.Click
+        DialogNovProj.ShowDialog()
+    End Sub
+
+    Private Sub OdpriMapoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OdpriMapoToolStripMenuItem.Click
+        Process.Start(projektIzbranMapa)
+    End Sub
+
+    Private Sub UvoziProjekteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UvoziProjekteToolStripMenuItem.Click
+        UvoziMapeProj()
+        Dim msgUvoziMape = MsgBox("Shranim seznam projektov?" + vbCrLf + "Datoteka: tps1100_projekti.txt", vbOKCancel + vbExclamation, "Shranim Projekte?")
+
+        If msgUvoziMape = DialogResult.OK Then
+            ProjektiShraniNast()
+        End If
+
+    End Sub
+
+    Private Sub ArhivirajProjektToolStripMenuItem_Click(sender As Object, e As EventArgs)
+        ArhivirajProjekt()
+    End Sub
+
+    Private Sub NastaviDelovniProjektToolStripMenuItem_Click(sender As Object, e As EventArgs)
+        NastaviDelovniProj()
+    End Sub
+
+    Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
+        DialogNovProj.ShowDialog()
+    End Sub
+
+    Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
+        UvoziGsiJob()
+    End Sub
+
+    Private Sub ToolStripButton9_Click(sender As Object, e As EventArgs) Handles ToolStripButton9.Click
+        NastaviDelovniProj()
+    End Sub
+End Class

FormIzracunMeasure.Designer.vb

@@ -0,0 +1,666 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class FormIzracunMeasure
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FormIzracunMeasure))
+        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.tbStnHins = New System.Windows.Forms.TextBox()
+        Me.tbStnH = New System.Windows.Forms.TextBox()
+        Me.tbStnN = New System.Windows.Forms.TextBox()
+        Me.tbStnE = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.tbMerPrCons = New System.Windows.Forms.TextBox()
+        Me.cbPrizma = New System.Windows.Forms.ComboBox()
+        Me.tbMerHpriz = New System.Windows.Forms.TextBox()
+        Me.tbMerH = New System.Windows.Forms.TextBox()
+        Me.tbMerN = New System.Windows.Forms.TextBox()
+        Me.tbMerE = New System.Windows.Forms.TextBox()
+        Me.LabelPrCons = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.tbMerIme = New System.Windows.Forms.TextBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.MyApplicationBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
+        Me.LabelIzrHz = New System.Windows.Forms.Label()
+        Me.LabelIzrDs = New System.Windows.Forms.Label()
+        Me.LabelIzrV = New System.Windows.Forms.Label()
+        Me.LabelIzrDhVis = New System.Windows.Forms.Label()
+        Me.LabelIzrDh = New System.Windows.Forms.Label()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.tbGsiOut = New System.Windows.Forms.TextBox()
+        Me.Label19 = New System.Windows.Forms.Label()
+        Me.TableLayoutPanel1.SuspendLayout()
+        CType(Me.MyApplicationBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TableLayoutPanel2.SuspendLayout()
+        Me.TableLayoutPanel3.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'TableLayoutPanel1
+        '
+        Me.TableLayoutPanel1.ColumnCount = 4
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 15.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 35.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 15.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 35.0!))
+        Me.TableLayoutPanel1.Controls.Add(Me.Label9, 1, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label10, 3, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label7, 0, 5)
+        Me.TableLayoutPanel1.Controls.Add(Me.tbStnHins, 1, 5)
+        Me.TableLayoutPanel1.Controls.Add(Me.tbStnH, 1, 4)
+        Me.TableLayoutPanel1.Controls.Add(Me.tbStnN, 1, 3)
+        Me.TableLayoutPanel1.Controls.Add(Me.tbStnE, 1, 2)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label5, 0, 4)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label3, 0, 3)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label1, 0, 2)
+        Me.TableLayoutPanel1.Controls.Add(Me.tbMerPrCons, 3, 7)
+        Me.TableLayoutPanel1.Controls.Add(Me.cbPrizma, 3, 6)
+        Me.TableLayoutPanel1.Controls.Add(Me.tbMerHpriz, 3, 5)
+        Me.TableLayoutPanel1.Controls.Add(Me.tbMerH, 3, 4)
+        Me.TableLayoutPanel1.Controls.Add(Me.tbMerN, 3, 3)
+        Me.TableLayoutPanel1.Controls.Add(Me.tbMerE, 3, 2)
+        Me.TableLayoutPanel1.Controls.Add(Me.LabelPrCons, 2, 7)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label12, 2, 6)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label8, 2, 5)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label6, 2, 4)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label4, 2, 3)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label2, 2, 2)
+        Me.TableLayoutPanel1.Controls.Add(Me.Label13, 2, 1)
+        Me.TableLayoutPanel1.Controls.Add(Me.tbMerIme, 3, 1)
+        Me.TableLayoutPanel1.Controls.Add(Me.Button1, 3, 8)
+        Me.TableLayoutPanel1.Location = New System.Drawing.Point(255, 12)
+        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+        Me.TableLayoutPanel1.RowCount = 9
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 40.0!))
+        Me.TableLayoutPanel1.Size = New System.Drawing.Size(437, 245)
+        Me.TableLayoutPanel1.TabIndex = 0
+        '
+        'Label9
+        '
+        Me.Label9.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(68, 14)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(146, 16)
+        Me.Label9.TabIndex = 16
+        Me.Label9.Text = "Stojišče"
+        Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label10
+        '
+        Me.Label10.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label10.Location = New System.Drawing.Point(285, 14)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(149, 16)
+        Me.Label10.TabIndex = 17
+        Me.Label10.Text = "Merjena Točka"
+        Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label7
+        '
+        Me.Label7.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(19, 136)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(43, 13)
+        Me.Label7.TabIndex = 12
+        Me.Label7.Text = "H (inst.)"
+        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'tbStnHins
+        '
+        Me.tbStnHins.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.tbStnHins.Location = New System.Drawing.Point(68, 133)
+        Me.tbStnHins.Name = "tbStnHins"
+        Me.tbStnHins.Size = New System.Drawing.Size(60, 20)
+        Me.tbStnHins.TabIndex = 13
+        Me.tbStnHins.Text = "0.000"
+        '
+        'tbStnH
+        '
+        Me.tbStnH.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.tbStnH.Location = New System.Drawing.Point(68, 108)
+        Me.tbStnH.Name = "tbStnH"
+        Me.tbStnH.Size = New System.Drawing.Size(80, 20)
+        Me.tbStnH.TabIndex = 9
+        Me.tbStnH.Text = "0.000"
+        '
+        'tbStnN
+        '
+        Me.tbStnN.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.tbStnN.Location = New System.Drawing.Point(68, 83)
+        Me.tbStnN.Name = "tbStnN"
+        Me.tbStnN.Size = New System.Drawing.Size(99, 20)
+        Me.tbStnN.TabIndex = 5
+        Me.tbStnN.Text = "0.000"
+        '
+        'tbStnE
+        '
+        Me.tbStnE.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.tbStnE.Location = New System.Drawing.Point(68, 58)
+        Me.tbStnE.Name = "tbStnE"
+        Me.tbStnE.Size = New System.Drawing.Size(99, 20)
+        Me.tbStnE.TabIndex = 1
+        Me.tbStnE.Text = "0.000"
+        '
+        'Label5
+        '
+        Me.Label5.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(47, 111)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(15, 13)
+        Me.Label5.TabIndex = 8
+        Me.Label5.Text = "H"
+        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(47, 86)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(15, 13)
+        Me.Label3.TabIndex = 4
+        Me.Label3.Text = "N"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(48, 61)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(14, 13)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "E"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'tbMerPrCons
+        '
+        Me.tbMerPrCons.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.tbMerPrCons.Enabled = False
+        Me.tbMerPrCons.Location = New System.Drawing.Point(285, 183)
+        Me.tbMerPrCons.Name = "tbMerPrCons"
+        Me.tbMerPrCons.Size = New System.Drawing.Size(60, 20)
+        Me.tbMerPrCons.TabIndex = 19
+        '
+        'cbPrizma
+        '
+        Me.cbPrizma.FormattingEnabled = True
+        Me.cbPrizma.Items.AddRange(New Object() {"Red Laser", "Leica Circ. Prism", "Leica Mini Prism", "Vnos konstante..."})
+        Me.cbPrizma.Location = New System.Drawing.Point(285, 158)
+        Me.cbPrizma.Name = "cbPrizma"
+        Me.cbPrizma.Size = New System.Drawing.Size(149, 21)
+        Me.cbPrizma.TabIndex = 21
+        '
+        'tbMerHpriz
+        '
+        Me.tbMerHpriz.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.tbMerHpriz.Location = New System.Drawing.Point(285, 133)
+        Me.tbMerHpriz.Name = "tbMerHpriz"
+        Me.tbMerHpriz.Size = New System.Drawing.Size(60, 20)
+        Me.tbMerHpriz.TabIndex = 15
+        Me.tbMerHpriz.Text = "0.000"
+        '
+        'tbMerH
+        '
+        Me.tbMerH.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.tbMerH.Location = New System.Drawing.Point(285, 108)
+        Me.tbMerH.Name = "tbMerH"
+        Me.tbMerH.Size = New System.Drawing.Size(80, 20)
+        Me.tbMerH.TabIndex = 11
+        Me.tbMerH.Text = "0.000"
+        '
+        'tbMerN
+        '
+        Me.tbMerN.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.tbMerN.Location = New System.Drawing.Point(285, 83)
+        Me.tbMerN.Name = "tbMerN"
+        Me.tbMerN.Size = New System.Drawing.Size(99, 20)
+        Me.tbMerN.TabIndex = 7
+        Me.tbMerN.Text = "0.000"
+        '
+        'tbMerE
+        '
+        Me.tbMerE.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.tbMerE.Location = New System.Drawing.Point(285, 58)
+        Me.tbMerE.Name = "tbMerE"
+        Me.tbMerE.Size = New System.Drawing.Size(99, 20)
+        Me.tbMerE.TabIndex = 3
+        Me.tbMerE.Text = "0.000"
+        '
+        'LabelPrCons
+        '
+        Me.LabelPrCons.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.LabelPrCons.AutoSize = True
+        Me.LabelPrCons.Enabled = False
+        Me.LabelPrCons.Location = New System.Drawing.Point(230, 186)
+        Me.LabelPrCons.Name = "LabelPrCons"
+        Me.LabelPrCons.Size = New System.Drawing.Size(49, 13)
+        Me.LabelPrCons.TabIndex = 18
+        Me.LabelPrCons.Text = "Pr. cons."
+        Me.LabelPrCons.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label12
+        '
+        Me.Label12.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(222, 161)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(57, 13)
+        Me.Label12.TabIndex = 20
+        Me.Label12.Text = "Prizma/RL"
+        Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label8
+        '
+        Me.Label8.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(238, 136)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(41, 13)
+        Me.Label8.TabIndex = 14
+        Me.Label8.Text = "H (refl.)"
+        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label6
+        '
+        Me.Label6.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(264, 111)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(15, 13)
+        Me.Label6.TabIndex = 10
+        Me.Label6.Text = "H"
+        Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label4
+        '
+        Me.Label4.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(264, 86)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(15, 13)
+        Me.Label4.TabIndex = 6
+        Me.Label4.Text = "N"
+        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(265, 61)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(14, 13)
+        Me.Label2.TabIndex = 2
+        Me.Label2.Text = "E"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Label13
+        '
+        Me.Label13.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Label13.AutoSize = True
+        Me.Label13.Location = New System.Drawing.Point(237, 36)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(42, 13)
+        Me.Label13.TabIndex = 22
+        Me.Label13.Text = "Ime/Št."
+        Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'tbMerIme
+        '
+        Me.tbMerIme.Anchor = System.Windows.Forms.AnchorStyles.Left
+        Me.tbMerIme.Location = New System.Drawing.Point(285, 33)
+        Me.tbMerIme.Name = "tbMerIme"
+        Me.tbMerIme.Size = New System.Drawing.Size(100, 20)
+        Me.tbMerIme.TabIndex = 23
+        Me.tbMerIme.Text = "TOCKA"
+        '
+        'Button1
+        '
+        Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
+        Me.Button1.Image = Global.TPS1100_Convert.My.Resources.Resources.digital_24
+        Me.Button1.Location = New System.Drawing.Point(285, 208)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(149, 34)
+        Me.Button1.TabIndex = 24
+        Me.Button1.Text = "Izračunaj"
+        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button1.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'MyApplicationBindingSource
+        '
+        Me.MyApplicationBindingSource.DataSource = GetType(TPS1100_Convert.My.MyApplication)
+        '
+        'TableLayoutPanel2
+        '
+        Me.TableLayoutPanel2.ColumnCount = 5
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
+        Me.TableLayoutPanel2.Controls.Add(Me.LabelIzrHz, 0, 1)
+        Me.TableLayoutPanel2.Controls.Add(Me.LabelIzrDs, 0, 1)
+        Me.TableLayoutPanel2.Controls.Add(Me.LabelIzrV, 0, 1)
+        Me.TableLayoutPanel2.Controls.Add(Me.LabelIzrDhVis, 0, 1)
+        Me.TableLayoutPanel2.Controls.Add(Me.LabelIzrDh, 0, 1)
+        Me.TableLayoutPanel2.Controls.Add(Me.Label14, 0, 0)
+        Me.TableLayoutPanel2.Controls.Add(Me.Label15, 1, 0)
+        Me.TableLayoutPanel2.Controls.Add(Me.Label16, 2, 0)
+        Me.TableLayoutPanel2.Controls.Add(Me.Label17, 3, 0)
+        Me.TableLayoutPanel2.Controls.Add(Me.Label18, 4, 0)
+        Me.TableLayoutPanel2.Location = New System.Drawing.Point(12, 263)
+        Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
+        Me.TableLayoutPanel2.RowCount = 2
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel2.Size = New System.Drawing.Size(680, 50)
+        Me.TableLayoutPanel2.TabIndex = 1
+        '
+        'LabelIzrHz
+        '
+        Me.LabelIzrHz.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LabelIzrHz.AutoSize = True
+        Me.LabelIzrHz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.LabelIzrHz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.LabelIzrHz.Location = New System.Drawing.Point(3, 28)
+        Me.LabelIzrHz.Name = "LabelIzrHz"
+        Me.LabelIzrHz.Size = New System.Drawing.Size(130, 18)
+        Me.LabelIzrHz.TabIndex = 26
+        Me.LabelIzrHz.Text = "LabelIzrHz"
+        Me.LabelIzrHz.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'LabelIzrDs
+        '
+        Me.LabelIzrDs.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LabelIzrDs.AutoSize = True
+        Me.LabelIzrDs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.LabelIzrDs.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.LabelIzrDs.Location = New System.Drawing.Point(275, 28)
+        Me.LabelIzrDs.Name = "LabelIzrDs"
+        Me.LabelIzrDs.Size = New System.Drawing.Size(130, 18)
+        Me.LabelIzrDs.TabIndex = 25
+        Me.LabelIzrDs.Text = "LabelIzrDs"
+        Me.LabelIzrDs.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'LabelIzrV
+        '
+        Me.LabelIzrV.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LabelIzrV.AutoSize = True
+        Me.LabelIzrV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.LabelIzrV.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.LabelIzrV.Location = New System.Drawing.Point(139, 28)
+        Me.LabelIzrV.Name = "LabelIzrV"
+        Me.LabelIzrV.Size = New System.Drawing.Size(130, 18)
+        Me.LabelIzrV.TabIndex = 24
+        Me.LabelIzrV.Text = "LabelIzrV"
+        Me.LabelIzrV.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'LabelIzrDhVis
+        '
+        Me.LabelIzrDhVis.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LabelIzrDhVis.AutoSize = True
+        Me.LabelIzrDhVis.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.LabelIzrDhVis.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.LabelIzrDhVis.Location = New System.Drawing.Point(547, 28)
+        Me.LabelIzrDhVis.Name = "LabelIzrDhVis"
+        Me.LabelIzrDhVis.Size = New System.Drawing.Size(130, 18)
+        Me.LabelIzrDhVis.TabIndex = 23
+        Me.LabelIzrDhVis.Text = "LabelIzrDhVis"
+        Me.LabelIzrDhVis.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'LabelIzrDh
+        '
+        Me.LabelIzrDh.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.LabelIzrDh.AutoSize = True
+        Me.LabelIzrDh.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.LabelIzrDh.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.LabelIzrDh.Location = New System.Drawing.Point(411, 28)
+        Me.LabelIzrDh.Name = "LabelIzrDh"
+        Me.LabelIzrDh.Size = New System.Drawing.Size(130, 18)
+        Me.LabelIzrDh.TabIndex = 22
+        Me.LabelIzrDh.Text = "LabelIzrDh"
+        Me.LabelIzrDh.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label14
+        '
+        Me.Label14.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label14.AutoSize = True
+        Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label14.Location = New System.Drawing.Point(3, 9)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(130, 16)
+        Me.Label14.TabIndex = 17
+        Me.Label14.Text = "Hz"
+        Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label15
+        '
+        Me.Label15.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label15.AutoSize = True
+        Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label15.Location = New System.Drawing.Point(139, 9)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(130, 16)
+        Me.Label15.TabIndex = 18
+        Me.Label15.Text = "V"
+        Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label16
+        '
+        Me.Label16.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label16.AutoSize = True
+        Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label16.Location = New System.Drawing.Point(275, 9)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(130, 16)
+        Me.Label16.TabIndex = 19
+        Me.Label16.Text = "D (poš.)"
+        Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label17
+        '
+        Me.Label17.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label17.AutoSize = True
+        Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label17.Location = New System.Drawing.Point(411, 9)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(130, 16)
+        Me.Label17.TabIndex = 20
+        Me.Label17.Text = "D (hor.)"
+        Me.Label17.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'Label18
+        '
+        Me.Label18.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label18.AutoSize = True
+        Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label18.Location = New System.Drawing.Point(547, 9)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(130, 16)
+        Me.Label18.TabIndex = 21
+        Me.Label18.Text = "dH"
+        Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        '
+        'TableLayoutPanel3
+        '
+        Me.TableLayoutPanel3.ColumnCount = 2
+        Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel3.Controls.Add(Me.Button2, 0, 0)
+        Me.TableLayoutPanel3.Controls.Add(Me.Button3, 1, 0)
+        Me.TableLayoutPanel3.Location = New System.Drawing.Point(12, 347)
+        Me.TableLayoutPanel3.Name = "TableLayoutPanel3"
+        Me.TableLayoutPanel3.RowCount = 1
+        Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel3.Size = New System.Drawing.Size(680, 40)
+        Me.TableLayoutPanel3.TabIndex = 2
+        '
+        'Button2
+        '
+        Me.Button2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_advance2_24
+        Me.Button2.Location = New System.Drawing.Point(3, 3)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(102, 34)
+        Me.Button2.TabIndex = 0
+        Me.Button2.Text = "Vstavi"
+        Me.Button2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Button3
+        '
+        Me.Button3.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.Button3.Location = New System.Drawing.Point(602, 4)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(75, 32)
+        Me.Button3.TabIndex = 1
+        Me.Button3.Text = "Prekliči"
+        Me.Button3.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'tbGsiOut
+        '
+        Me.tbGsiOut.Font = New System.Drawing.Font("Courier New", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.tbGsiOut.Location = New System.Drawing.Point(47, 320)
+        Me.tbGsiOut.Name = "tbGsiOut"
+        Me.tbGsiOut.Size = New System.Drawing.Size(645, 21)
+        Me.tbGsiOut.TabIndex = 3
+        '
+        'Label19
+        '
+        Me.Label19.Location = New System.Drawing.Point(13, 320)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(28, 21)
+        Me.Label19.TabIndex = 4
+        Me.Label19.Text = "GSI"
+        Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'FormIzracunMeasure
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.SystemColors.Control
+        Me.ClientSize = New System.Drawing.Size(704, 396)
+        Me.Controls.Add(Me.Label19)
+        Me.Controls.Add(Me.tbGsiOut)
+        Me.Controls.Add(Me.TableLayoutPanel3)
+        Me.Controls.Add(Me.TableLayoutPanel2)
+        Me.Controls.Add(Me.TableLayoutPanel1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.Name = "FormIzracunMeasure"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Izračun Meritve"
+        Me.TableLayoutPanel1.ResumeLayout(False)
+        Me.TableLayoutPanel1.PerformLayout()
+        CType(Me.MyApplicationBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TableLayoutPanel2.ResumeLayout(False)
+        Me.TableLayoutPanel2.PerformLayout()
+        Me.TableLayoutPanel3.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
+    Friend WithEvents Label8 As Label
+    Friend WithEvents tbMerHpriz As TextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents tbStnHins As TextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents tbMerH As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents tbStnH As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents tbMerN As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents tbStnN As TextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents tbMerE As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents tbStnE As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents Label10 As Label
+    Friend WithEvents LabelPrCons As Label
+    Friend WithEvents Label12 As Label
+    Friend WithEvents tbMerPrCons As TextBox
+    Friend WithEvents cbPrizma As ComboBox
+    Friend WithEvents MyApplicationBindingSource As BindingSource
+    Friend WithEvents Label13 As Label
+    Friend WithEvents tbMerIme As TextBox
+    Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
+    Friend WithEvents Label14 As Label
+    Friend WithEvents Label15 As Label
+    Friend WithEvents Label16 As Label
+    Friend WithEvents Label17 As Label
+    Friend WithEvents Label18 As Label
+    Friend WithEvents LabelIzrHz As Label
+    Friend WithEvents LabelIzrDs As Label
+    Friend WithEvents LabelIzrV As Label
+    Friend WithEvents LabelIzrDhVis As Label
+    Friend WithEvents LabelIzrDh As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents TableLayoutPanel3 As TableLayoutPanel
+    Friend WithEvents Button2 As Button
+    Friend WithEvents Button3 As Button
+    Friend WithEvents tbGsiOut As TextBox
+    Friend WithEvents Label19 As Label
+End Class

FormIzracunMeasure.vb

@@ -0,0 +1,95 @@
+Public Class FormIzracunMeasure
+    Public g As Graphics
+
+    Dim stnE
+    Dim stnN
+    Dim stnH
+    Dim stnHinst
+    Dim merIme
+    Dim merE
+    Dim merN
+    Dim merH
+    Dim merHpriz
+    Dim merPriz
+    Dim merPrCons
+
+    Private Sub FormIzracunMeasure_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        g = Me.CreateGraphics()
+
+        cbPrizma.SelectedIndex = 0
+    End Sub
+
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbPrizma.SelectedIndexChanged
+        Dim cb = cbPrizma.Text
+
+        Select Case cb
+            Case "Red Laser"
+                tbMerPrCons.Text = "+0.0344"
+                tbMerPrCons.Enabled = False
+                LabelPrCons.Enabled = False
+            Case "Leica Circ. Prism"
+                tbMerPrCons.Text = "+0.0000"
+                tbMerPrCons.Enabled = False
+                LabelPrCons.Enabled = False
+            Case "Leica Mini Prism"
+                tbMerPrCons.Text = "+0.0175"
+                tbMerPrCons.Enabled = False
+                LabelPrCons.Enabled = False
+            Case "Vnos konstante..."
+                tbMerPrCons.Text = "+0.0000"
+                tbMerPrCons.Enabled = True
+                LabelPrCons.Enabled = True
+            Case Else
+
+        End Select
+    End Sub
+
+    Public Sub PrikazGrafike()
+        g.Clear(SystemColors.Control)
+
+        Dim deltaE = merE - stnE
+        Dim deltaN = merN - stnN
+        Dim fakt
+
+        If deltaE > deltaN Then
+            fakt = 120 / deltaE
+        Else
+            fakt = 120 / deltaN
+        End If
+
+        Dim izrE = deltaE * fakt
+        Dim izrN = deltaN * fakt
+
+        Dim grStnE As Single = 130
+        Dim grStnN As Single = 130
+        Dim grMerE As Single = izrE + 130
+        Dim grMerN As Single = izrN + 130
+
+        tbGsiOut.Text = "dE=" + deltaE.ToString + " dN=" + deltaN.ToString + " / f=" + fakt.ToString + " / iE=" + izrE.ToString + " iN=" + izrN.ToString + " gE=" + grMerE.ToString + " gN=" + grMerN.ToString
+
+        g.DrawLine(Pens.DarkBlue, New Point(grStnE, grStnN), New Point(grMerE, grMerN))
+        g.DrawRectangle(Pens.Gray, 10, 10, 240, 240)
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        stnE = CDbl(tbStnE.Text)
+        stnN = CDbl(tbStnN.Text)
+        stnH = CDbl(tbStnH.Text)
+        stnHinst = CDbl(tbStnHins.Text)
+        merIme = tbMerIme.Text.ToString
+        merE = CDbl(tbMerE.Text)
+        merN = CDbl(tbMerN.Text)
+        merH = CDbl(tbMerH.Text)
+        merHpriz = CDbl(tbMerHpriz.Text)
+        merPriz = cbPrizma.Text.ToString
+        merPrCons = CDbl(tbMerPrCons.Text)
+
+        PrikazGrafike()
+
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Me.Close()
+    End Sub
+End Class

FormKodaStojisce.Designer.vb

@@ -0,0 +1,136 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class FormKodaStojisce
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FormKodaStojisce))
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+        Me.TableLayoutPanel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(12, 15)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(24, 13)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Ime"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBox1.Location = New System.Drawing.Point(80, 12)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(103, 20)
+        Me.TextBox1.TabIndex = 1
+        '
+        'TextBox2
+        '
+        Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBox2.Location = New System.Drawing.Point(80, 38)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(82, 20)
+        Me.TextBox2.TabIndex = 2
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(12, 41)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(47, 13)
+        Me.Label2.TabIndex = 3
+        Me.Label2.Text = "Vis. Inst."
+        '
+        'Button1
+        '
+        Me.Button1.Anchor = System.Windows.Forms.AnchorStyles.Bottom
+        Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.Button1.Location = New System.Drawing.Point(48, 9)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 4
+        Me.Button1.Text = "OK"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(168, 41)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(15, 13)
+        Me.Label3.TabIndex = 5
+        Me.Label3.Text = "m"
+        '
+        'TableLayoutPanel1
+        '
+        Me.TableLayoutPanel1.ColumnCount = 1
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel1.Controls.Add(Me.Button1, 0, 0)
+        Me.TableLayoutPanel1.Location = New System.Drawing.Point(12, 64)
+        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+        Me.TableLayoutPanel1.RowCount = 1
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 35.0!))
+        Me.TableLayoutPanel1.Size = New System.Drawing.Size(171, 35)
+        Me.TableLayoutPanel1.TabIndex = 6
+        '
+        'FormKodaStojisce
+        '
+        Me.AcceptButton = Me.Button1
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(194, 111)
+        Me.Controls.Add(Me.TableLayoutPanel1)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.Label1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "FormKodaStojisce"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Koda: Stojišče"
+        Me.TopMost = True
+        Me.TableLayoutPanel1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Label1 As Label
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Label3 As Label
+    Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
+End Class

FormKodaStojisce.vb

@@ -0,0 +1,5 @@
+Public Class FormKodaStojisce
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.Close()
+    End Sub
+End Class

FormKodaVreme.Designer.vb

@@ -0,0 +1,148 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class FormKodaVreme
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    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.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FormKodaVreme))
+        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.TableLayoutPanel1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'TableLayoutPanel1
+        '
+        Me.TableLayoutPanel1.ColumnCount = 1
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel1.Controls.Add(Me.Button1, 0, 0)
+        Me.TableLayoutPanel1.Location = New System.Drawing.Point(12, 64)
+        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+        Me.TableLayoutPanel1.RowCount = 1
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel1.Size = New System.Drawing.Size(170, 35)
+        Me.TableLayoutPanel1.TabIndex = 12
+        '
+        'Button1
+        '
+        Me.Button1.Anchor = System.Windows.Forms.AnchorStyles.Bottom
+        Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
+        Me.Button1.Location = New System.Drawing.Point(47, 9)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 4
+        Me.Button1.Text = "OK"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(12, 41)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(35, 13)
+        Me.Label2.TabIndex = 10
+        Me.Label2.Text = "Pritisk"
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Location = New System.Drawing.Point(85, 38)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(61, 20)
+        Me.TextBox2.TabIndex = 9
+        Me.TextBox2.Text = "970"
+        Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(85, 12)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(61, 20)
+        Me.TextBox1.TabIndex = 8
+        Me.TextBox1.Text = "20"
+        Me.TextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(12, 15)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(67, 13)
+        Me.Label1.TabIndex = 7
+        Me.Label1.Text = "Temperatura"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(152, 15)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(18, 13)
+        Me.Label3.TabIndex = 13
+        Me.Label3.Text = "°C"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(152, 41)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(30, 13)
+        Me.Label4.TabIndex = 14
+        Me.Label4.Text = "mbar"
+        '
+        'FormKodaVreme
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(194, 111)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.TableLayoutPanel1)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.TextBox2)
+        Me.Controls.Add(Me.TextBox1)
+        Me.Controls.Add(Me.Label1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "FormKodaVreme"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "Koda: Vreme"
+        Me.TableLayoutPanel1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Label2 As Label
+    Friend WithEvents TextBox2 As TextBox
+    Friend WithEvents TextBox1 As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label4 As Label
+End Class

FormKodaVreme.vb

@@ -0,0 +1,5 @@
+Public Class FormKodaVreme
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.Close()
+    End Sub
+End Class

FormNastavitve.Designer.vb

@@ -0,0 +1,815 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class FormNastavitve
+    Inherits System.Windows.Forms.Form
+
+    'Form overrides dispose to clean up the component list.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    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.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FormNastavitve))
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
+        Me.RadioButton1 = New System.Windows.Forms.RadioButton()
+        Me.RadioButton2 = New System.Windows.Forms.RadioButton()
+        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
+        Me.RadioButton3 = New System.Windows.Forms.RadioButton()
+        Me.RadioButton4 = New System.Windows.Forms.RadioButton()
+        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.TextBoxLog = New System.Windows.Forms.TextBox()
+        Me.ButtonOdpriLog = New System.Windows.Forms.Button()
+        Me.OpenFileDialogNast = New System.Windows.Forms.OpenFileDialog()
+        Me.SaveFileDialogLog = New System.Windows.Forms.SaveFileDialog()
+        Me.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.TextBoxOriHz = New System.Windows.Forms.TextBox()
+        Me.Label14 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.TextBoxImport = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.TextBoxMeas = New System.Windows.Forms.TextBox()
+        Me.TextBoxMeasOri = New System.Windows.Forms.TextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label15 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.TextBoxOriHt = New System.Windows.Forms.TextBox()
+        Me.TextBoxFree = New System.Windows.Forms.TextBox()
+        Me.TextBoxRes = New System.Windows.Forms.TextBox()
+        Me.TextBoxSetAzi = New System.Windows.Forms.TextBox()
+        Me.TextBoxQuickSet = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TextBoxStoj = New System.Windows.Forms.TextBox()
+        Me.TextBoxStojInfo = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
+        Me.LabelFontInfo = New System.Windows.Forms.Label()
+        Me.ButtonFont = New System.Windows.Forms.Button()
+        Me.FontDialog1 = New System.Windows.Forms.FontDialog()
+        Me.SaveFileDialogNast = New System.Windows.Forms.SaveFileDialog()
+        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
+        Me.DatotekaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.UvoziKodeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.IzvoziKodeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.PonastaviKodeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ZapriToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ButtonShraniZapri = New System.Windows.Forms.Button()
+        Me.GroupBox1.SuspendLayout()
+        Me.TableLayoutPanel1.SuspendLayout()
+        Me.GroupBox2.SuspendLayout()
+        Me.TableLayoutPanel2.SuspendLayout()
+        Me.GroupBox3.SuspendLayout()
+        Me.TableLayoutPanel3.SuspendLayout()
+        Me.GroupBox4.SuspendLayout()
+        Me.MenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.TableLayoutPanel1)
+        Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GroupBox1.Location = New System.Drawing.Point(257, 27)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(285, 87)
+        Me.GroupBox1.TabIndex = 0
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Ločilo med podatki"
+        '
+        'TableLayoutPanel1
+        '
+        Me.TableLayoutPanel1.ColumnCount = 1
+        Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
+        Me.TableLayoutPanel1.Controls.Add(Me.RadioButton1, 0, 0)
+        Me.TableLayoutPanel1.Controls.Add(Me.RadioButton2, 0, 1)
+        Me.TableLayoutPanel1.Location = New System.Drawing.Point(7, 22)
+        Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
+        Me.TableLayoutPanel1.RowCount = 2
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle())
+        Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle())
+        Me.TableLayoutPanel1.Size = New System.Drawing.Size(272, 59)
+        Me.TableLayoutPanel1.TabIndex = 3
+        '
+        'RadioButton1
+        '
+        Me.RadioButton1.AutoSize = True
+        Me.RadioButton1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.RadioButton1.Location = New System.Drawing.Point(3, 3)
+        Me.RadioButton1.Name = "RadioButton1"
+        Me.RadioButton1.Size = New System.Drawing.Size(80, 19)
+        Me.RadioButton1.TabIndex = 0
+        Me.RadioButton1.TabStop = True
+        Me.RadioButton1.Text = "Presledek"
+        Me.RadioButton1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.RadioButton1.UseVisualStyleBackColor = True
+        '
+        'RadioButton2
+        '
+        Me.RadioButton2.AutoSize = True
+        Me.RadioButton2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.RadioButton2.Location = New System.Drawing.Point(3, 28)
+        Me.RadioButton2.Name = "RadioButton2"
+        Me.RadioButton2.Size = New System.Drawing.Size(77, 19)
+        Me.RadioButton2.TabIndex = 1
+        Me.RadioButton2.TabStop = True
+        Me.RadioButton2.Text = "Tabulator"
+        Me.RadioButton2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.RadioButton2.UseVisualStyleBackColor = True
+        '
+        'GroupBox2
+        '
+        Me.GroupBox2.Controls.Add(Me.TableLayoutPanel2)
+        Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GroupBox2.Location = New System.Drawing.Point(257, 120)
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.Size = New System.Drawing.Size(285, 87)
+        Me.GroupBox2.TabIndex = 1
+        Me.GroupBox2.TabStop = False
+        Me.GroupBox2.Text = "Decimalno ločilo"
+        '
+        'TableLayoutPanel2
+        '
+        Me.TableLayoutPanel2.ColumnCount = 1
+        Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
+        Me.TableLayoutPanel2.Controls.Add(Me.RadioButton3, 0, 0)
+        Me.TableLayoutPanel2.Controls.Add(Me.RadioButton4, 0, 1)
+        Me.TableLayoutPanel2.Location = New System.Drawing.Point(7, 22)
+        Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
+        Me.TableLayoutPanel2.RowCount = 2
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle())
+        Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle())
+        Me.TableLayoutPanel2.Size = New System.Drawing.Size(272, 59)
+        Me.TableLayoutPanel2.TabIndex = 3
+        '
+        'RadioButton3
+        '
+        Me.RadioButton3.AutoSize = True
+        Me.RadioButton3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.RadioButton3.Location = New System.Drawing.Point(3, 3)
+        Me.RadioButton3.Name = "RadioButton3"
+        Me.RadioButton3.Size = New System.Drawing.Size(49, 19)
+        Me.RadioButton3.TabIndex = 0
+        Me.RadioButton3.TabStop = True
+        Me.RadioButton3.Text = "Pika"
+        Me.RadioButton3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.RadioButton3.UseVisualStyleBackColor = True
+        '
+        'RadioButton4
+        '
+        Me.RadioButton4.AutoSize = True
+        Me.RadioButton4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.RadioButton4.Location = New System.Drawing.Point(3, 28)
+        Me.RadioButton4.Name = "RadioButton4"
+        Me.RadioButton4.Size = New System.Drawing.Size(58, 19)
+        Me.RadioButton4.TabIndex = 1
+        Me.RadioButton4.TabStop = True
+        Me.RadioButton4.Text = "Vejica"
+        Me.RadioButton4.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.RadioButton4.UseVisualStyleBackColor = True
+        '
+        'GroupBox3
+        '
+        Me.GroupBox3.Controls.Add(Me.TextBoxLog)
+        Me.GroupBox3.Controls.Add(Me.ButtonOdpriLog)
+        Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GroupBox3.Location = New System.Drawing.Point(257, 296)
+        Me.GroupBox3.Name = "GroupBox3"
+        Me.GroupBox3.Size = New System.Drawing.Size(285, 56)
+        Me.GroupBox3.TabIndex = 3
+        Me.GroupBox3.TabStop = False
+        Me.GroupBox3.Text = "Zapisnik obdelave podatkov"
+        '
+        'TextBoxLog
+        '
+        Me.TextBoxLog.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxLog.Location = New System.Drawing.Point(6, 28)
+        Me.TextBoxLog.Name = "TextBoxLog"
+        Me.TextBoxLog.Size = New System.Drawing.Size(235, 22)
+        Me.TextBoxLog.TabIndex = 0
+        '
+        'ButtonOdpriLog
+        '
+        Me.ButtonOdpriLog.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.ButtonOdpriLog.AutoSize = True
+        Me.ButtonOdpriLog.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.ButtonOdpriLog.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.ButtonOdpriLog.Location = New System.Drawing.Point(253, 25)
+        Me.ButtonOdpriLog.Name = "ButtonOdpriLog"
+        Me.ButtonOdpriLog.Size = New System.Drawing.Size(26, 26)
+        Me.ButtonOdpriLog.TabIndex = 1
+        Me.ButtonOdpriLog.Text = "..."
+        Me.ButtonOdpriLog.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
+        Me.ButtonOdpriLog.UseVisualStyleBackColor = True
+        '
+        'OpenFileDialogNast
+        '
+        Me.OpenFileDialogNast.CheckFileExists = False
+        Me.OpenFileDialogNast.DefaultExt = "Text File|*.txt"
+        Me.OpenFileDialogNast.Filter = "Text File|*.txt|Any File|*.*"
+        '
+        'SaveFileDialogLog
+        '
+        Me.SaveFileDialogLog.DefaultExt = "Text File|*.txt"
+        Me.SaveFileDialogLog.FileName = "tps1100_log.txt"
+        Me.SaveFileDialogLog.Filter = "Text File|*.txt"
+        '
+        'TableLayoutPanel3
+        '
+        Me.TableLayoutPanel3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TableLayoutPanel3.ColumnCount = 2
+        Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 75.0!))
+        Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle())
+        Me.TableLayoutPanel3.Controls.Add(Me.Label7, 1, 3)
+        Me.TableLayoutPanel3.Controls.Add(Me.TextBoxOriHz, 0, 3)
+        Me.TableLayoutPanel3.Controls.Add(Me.Label14, 0, 0)
+        Me.TableLayoutPanel3.Controls.Add(Me.Label12, 1, 1)
+        Me.TableLayoutPanel3.Controls.Add(Me.Label10, 1, 0)
+        Me.TableLayoutPanel3.Controls.Add(Me.TextBoxImport, 0, 12)
+        Me.TableLayoutPanel3.Controls.Add(Me.Label8, 1, 12)
+        Me.TableLayoutPanel3.Controls.Add(Me.TextBoxMeas, 0, 11)
+        Me.TableLayoutPanel3.Controls.Add(Me.TextBoxMeasOri, 0, 10)
+        Me.TableLayoutPanel3.Controls.Add(Me.Label6, 1, 11)
+        Me.TableLayoutPanel3.Controls.Add(Me.Label9, 1, 10)
+        Me.TableLayoutPanel3.Controls.Add(Me.Label15, 0, 9)
+        Me.TableLayoutPanel3.Controls.Add(Me.Label11, 1, 9)
+        Me.TableLayoutPanel3.Controls.Add(Me.TextBoxOriHt, 0, 8)
+        Me.TableLayoutPanel3.Controls.Add(Me.TextBoxFree, 0, 7)
+        Me.TableLayoutPanel3.Controls.Add(Me.TextBoxRes, 0, 6)
+        Me.TableLayoutPanel3.Controls.Add(Me.TextBoxSetAzi, 0, 5)
+        Me.TableLayoutPanel3.Controls.Add(Me.TextBoxQuickSet, 0, 4)
+        Me.TableLayoutPanel3.Controls.Add(Me.Label5, 1, 8)
+        Me.TableLayoutPanel3.Controls.Add(Me.Label4, 1, 7)
+        Me.TableLayoutPanel3.Controls.Add(Me.Label3, 1, 6)
+        Me.TableLayoutPanel3.Controls.Add(Me.Label2, 1, 5)
+        Me.TableLayoutPanel3.Controls.Add(Me.Label1, 1, 4)
+        Me.TableLayoutPanel3.Controls.Add(Me.TextBoxStoj, 0, 1)
+        Me.TableLayoutPanel3.Controls.Add(Me.TextBoxStojInfo, 0, 2)
+        Me.TableLayoutPanel3.Controls.Add(Me.Label13, 1, 2)
+        Me.TableLayoutPanel3.Location = New System.Drawing.Point(12, 27)
+        Me.TableLayoutPanel3.Name = "TableLayoutPanel3"
+        Me.TableLayoutPanel3.RowCount = 13
+        Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
+        Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
+        Me.TableLayoutPanel3.Size = New System.Drawing.Size(239, 390)
+        Me.TableLayoutPanel3.TabIndex = 0
+        '
+        'Label7
+        '
+        Me.Label7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(78, 90)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(79, 30)
+        Me.Label7.TabIndex = 9
+        Me.Label7.Text = "Orientacija (Hz)"
+        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'TextBoxOriHz
+        '
+        Me.TextBoxOriHz.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxOriHz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxOriHz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxOriHz.Location = New System.Drawing.Point(3, 93)
+        Me.TextBoxOriHz.Name = "TextBoxOriHz"
+        Me.TextBoxOriHz.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxOriHz.TabIndex = 9
+        Me.TextBoxOriHz.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label14
+        '
+        Me.Label14.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label14.AutoSize = True
+        Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label14.Location = New System.Drawing.Point(3, 0)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(39, 30)
+        Me.Label14.TabIndex = 21
+        Me.Label14.Text = "Koda"
+        Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label12
+        '
+        Me.Label12.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(78, 30)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(47, 30)
+        Me.Label12.TabIndex = 5
+        Me.Label12.Text = "Stojišče "
+        Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label10
+        '
+        Me.Label10.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label10.AutoSize = True
+        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label10.Location = New System.Drawing.Point(78, 0)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(63, 30)
+        Me.Label10.TabIndex = 20
+        Me.Label10.Text = "Stojišče"
+        Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'TextBoxImport
+        '
+        Me.TextBoxImport.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxImport.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxImport.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxImport.Location = New System.Drawing.Point(3, 363)
+        Me.TextBoxImport.Name = "TextBoxImport"
+        Me.TextBoxImport.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxImport.TabIndex = 14
+        Me.TextBoxImport.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label8
+        '
+        Me.Label8.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(78, 360)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(128, 30)
+        Me.Label8.TabIndex = 7
+        Me.Label8.Text = "Točke: Uvoz/Ročni vnos"
+        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'TextBoxMeas
+        '
+        Me.TextBoxMeas.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxMeas.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxMeas.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxMeas.Location = New System.Drawing.Point(3, 333)
+        Me.TextBoxMeas.Name = "TextBoxMeas"
+        Me.TextBoxMeas.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxMeas.TabIndex = 11
+        Me.TextBoxMeas.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'TextBoxMeasOri
+        '
+        Me.TextBoxMeasOri.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxMeasOri.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxMeasOri.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxMeasOri.Location = New System.Drawing.Point(3, 303)
+        Me.TextBoxMeasOri.Name = "TextBoxMeasOri"
+        Me.TextBoxMeasOri.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxMeasOri.TabIndex = 12
+        Me.TextBoxMeasOri.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label6
+        '
+        Me.Label6.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(78, 330)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(45, 30)
+        Me.Label6.TabIndex = 5
+        Me.Label6.Text = "Merjeno"
+        Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label9
+        '
+        Me.Label9.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(78, 300)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(57, 30)
+        Me.Label9.TabIndex = 16
+        Me.Label9.Text = "Orientacije"
+        Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label15
+        '
+        Me.Label15.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label15.AutoSize = True
+        Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label15.Location = New System.Drawing.Point(3, 270)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(39, 30)
+        Me.Label15.TabIndex = 22
+        Me.Label15.Text = "Koda"
+        Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label11
+        '
+        Me.Label11.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label11.AutoSize = True
+        Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label11.Location = New System.Drawing.Point(78, 270)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(58, 30)
+        Me.Label11.TabIndex = 19
+        Me.Label11.Text = "Meritve"
+        Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'TextBoxOriHt
+        '
+        Me.TextBoxOriHt.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxOriHt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxOriHt.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxOriHt.Location = New System.Drawing.Point(3, 243)
+        Me.TextBoxOriHt.Name = "TextBoxOriHt"
+        Me.TextBoxOriHt.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxOriHt.TabIndex = 10
+        Me.TextBoxOriHt.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'TextBoxFree
+        '
+        Me.TextBoxFree.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxFree.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxFree.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxFree.Location = New System.Drawing.Point(3, 213)
+        Me.TextBoxFree.Name = "TextBoxFree"
+        Me.TextBoxFree.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxFree.TabIndex = 9
+        Me.TextBoxFree.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'TextBoxRes
+        '
+        Me.TextBoxRes.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxRes.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxRes.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxRes.Location = New System.Drawing.Point(3, 183)
+        Me.TextBoxRes.Name = "TextBoxRes"
+        Me.TextBoxRes.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxRes.TabIndex = 8
+        Me.TextBoxRes.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'TextBoxSetAzi
+        '
+        Me.TextBoxSetAzi.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxSetAzi.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxSetAzi.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxSetAzi.Location = New System.Drawing.Point(3, 153)
+        Me.TextBoxSetAzi.Name = "TextBoxSetAzi"
+        Me.TextBoxSetAzi.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxSetAzi.TabIndex = 7
+        Me.TextBoxSetAzi.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'TextBoxQuickSet
+        '
+        Me.TextBoxQuickSet.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxQuickSet.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxQuickSet.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxQuickSet.Location = New System.Drawing.Point(3, 123)
+        Me.TextBoxQuickSet.Name = "TextBoxQuickSet"
+        Me.TextBoxQuickSet.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxQuickSet.TabIndex = 6
+        Me.TextBoxQuickSet.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label5
+        '
+        Me.Label5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(78, 240)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(103, 30)
+        Me.Label5.TabIndex = 4
+        Me.Label5.Text = "Ori. and Ht. Transfer"
+        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label4
+        '
+        Me.Label4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(78, 210)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(64, 30)
+        Me.Label4.TabIndex = 3
+        Me.Label4.Text = "Free Station"
+        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label3
+        '
+        Me.Label3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(78, 180)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(55, 30)
+        Me.Label3.TabIndex = 2
+        Me.Label3.Text = "Resection"
+        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(78, 150)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(63, 30)
+        Me.Label2.TabIndex = 1
+        Me.Label2.Text = "Set Azimuth"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(78, 120)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(54, 30)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Quick Set"
+        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'TextBoxStoj
+        '
+        Me.TextBoxStoj.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxStoj.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxStoj.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxStoj.Location = New System.Drawing.Point(3, 33)
+        Me.TextBoxStoj.Name = "TextBoxStoj"
+        Me.TextBoxStoj.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxStoj.TabIndex = 4
+        Me.TextBoxStoj.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'TextBoxStojInfo
+        '
+        Me.TextBoxStojInfo.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.TextBoxStojInfo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.TextBoxStojInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.TextBoxStojInfo.Location = New System.Drawing.Point(3, 63)
+        Me.TextBoxStojInfo.Name = "TextBoxStojInfo"
+        Me.TextBoxStojInfo.Size = New System.Drawing.Size(69, 22)
+        Me.TextBoxStojInfo.TabIndex = 5
+        Me.TextBoxStojInfo.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label13
+        '
+        Me.Label13.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label13.AutoSize = True
+        Me.Label13.Location = New System.Drawing.Point(78, 60)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(88, 30)
+        Me.Label13.TabIndex = 5
+        Me.Label13.Text = "Info Temp/Pritisk"
+        Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'GroupBox4
+        '
+        Me.GroupBox4.Controls.Add(Me.LabelFontInfo)
+        Me.GroupBox4.Controls.Add(Me.ButtonFont)
+        Me.GroupBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GroupBox4.Location = New System.Drawing.Point(257, 213)
+        Me.GroupBox4.Name = "GroupBox4"
+        Me.GroupBox4.Size = New System.Drawing.Size(285, 77)
+        Me.GroupBox4.TabIndex = 4
+        Me.GroupBox4.TabStop = False
+        Me.GroupBox4.Text = "Prikaz Izpisa"
+        '
+        'LabelFontInfo
+        '
+        Me.LabelFontInfo.AutoSize = True
+        Me.LabelFontInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.LabelFontInfo.Location = New System.Drawing.Point(6, 23)
+        Me.LabelFontInfo.Name = "LabelFontInfo"
+        Me.LabelFontInfo.Size = New System.Drawing.Size(55, 16)
+        Me.LabelFontInfo.TabIndex = 1
+        Me.LabelFontInfo.Text = "Label16"
+        '
+        'ButtonFont
+        '
+        Me.ButtonFont.Location = New System.Drawing.Point(171, 41)
+        Me.ButtonFont.Name = "ButtonFont"
+        Me.ButtonFont.Size = New System.Drawing.Size(100, 30)
+        Me.ButtonFont.TabIndex = 0
+        Me.ButtonFont.Text = "Izberi pisavo"
+        Me.ButtonFont.UseVisualStyleBackColor = True
+        '
+        'FontDialog1
+        '
+        Me.FontDialog1.ShowEffects = False
+        '
+        'SaveFileDialogNast
+        '
+        Me.SaveFileDialogNast.DefaultExt = "Text File|*.txt"
+        Me.SaveFileDialogNast.FileName = "tps1100_kode.txt"
+        Me.SaveFileDialogNast.Filter = "Text File|*.txt|Any File|*.*"
+        '
+        'MenuStrip1
+        '
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DatotekaToolStripMenuItem})
+        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.MenuStrip1.Name = "MenuStrip1"
+        Me.MenuStrip1.Size = New System.Drawing.Size(554, 24)
+        Me.MenuStrip1.TabIndex = 7
+        Me.MenuStrip1.Text = "MenuStrip1"
+        '
+        'DatotekaToolStripMenuItem
+        '
+        Me.DatotekaToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UvoziKodeToolStripMenuItem, Me.IzvoziKodeToolStripMenuItem, Me.PonastaviKodeToolStripMenuItem, Me.ToolStripSeparator1, Me.ZapriToolStripMenuItem})
+        Me.DatotekaToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
+        Me.DatotekaToolStripMenuItem.Name = "DatotekaToolStripMenuItem"
+        Me.DatotekaToolStripMenuItem.Size = New System.Drawing.Size(82, 20)
+        Me.DatotekaToolStripMenuItem.Text = "&Datoteka"
+        '
+        'UvoziKodeToolStripMenuItem
+        '
+        Me.UvoziKodeToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_opened_folder_50
+        Me.UvoziKodeToolStripMenuItem.Name = "UvoziKodeToolStripMenuItem"
+        Me.UvoziKodeToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
+        Me.UvoziKodeToolStripMenuItem.Text = "&Uvozi Kode"
+        '
+        'IzvoziKodeToolStripMenuItem
+        '
+        Me.IzvoziKodeToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
+        Me.IzvoziKodeToolStripMenuItem.Name = "IzvoziKodeToolStripMenuItem"
+        Me.IzvoziKodeToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
+        Me.IzvoziKodeToolStripMenuItem.Text = "&Shrani Kode"
+        '
+        'PonastaviKodeToolStripMenuItem
+        '
+        Me.PonastaviKodeToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_rotate_48
+        Me.PonastaviKodeToolStripMenuItem.Name = "PonastaviKodeToolStripMenuItem"
+        Me.PonastaviKodeToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
+        Me.PonastaviKodeToolStripMenuItem.Text = "Ponastavi Kode"
+        '
+        'ToolStripSeparator1
+        '
+        Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(152, 6)
+        '
+        'ZapriToolStripMenuItem
+        '
+        Me.ZapriToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
+        Me.ZapriToolStripMenuItem.Name = "ZapriToolStripMenuItem"
+        Me.ZapriToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
+        Me.ZapriToolStripMenuItem.Text = "&Zapri"
+        '
+        'ButtonShraniZapri
+        '
+        Me.ButtonShraniZapri.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.ButtonShraniZapri.AutoSize = True
+        Me.ButtonShraniZapri.Image = Global.TPS1100_Convert.My.Resources.Resources.Save_as_24
+        Me.ButtonShraniZapri.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.ButtonShraniZapri.Location = New System.Drawing.Point(471, 387)
+        Me.ButtonShraniZapri.Name = "ButtonShraniZapri"
+        Me.ButtonShraniZapri.Size = New System.Drawing.Size(71, 42)
+        Me.ButtonShraniZapri.TabIndex = 8
+        Me.ButtonShraniZapri.Text = "Shrani"
+        Me.ButtonShraniZapri.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.ButtonShraniZapri.UseVisualStyleBackColor = True
+        '
+        'FormNastavitve
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(554, 441)
+        Me.Controls.Add(Me.ButtonShraniZapri)
+        Me.Controls.Add(Me.GroupBox4)
+        Me.Controls.Add(Me.TableLayoutPanel3)
+        Me.Controls.Add(Me.GroupBox3)
+        Me.Controls.Add(Me.GroupBox2)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Controls.Add(Me.MenuStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MainMenuStrip = Me.MenuStrip1
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "FormNastavitve"
+        Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Nastavitve"
+        Me.TopMost = True
+        Me.GroupBox1.ResumeLayout(False)
+        Me.TableLayoutPanel1.ResumeLayout(False)
+        Me.TableLayoutPanel1.PerformLayout()
+        Me.GroupBox2.ResumeLayout(False)
+        Me.TableLayoutPanel2.ResumeLayout(False)
+        Me.TableLayoutPanel2.PerformLayout()
+        Me.GroupBox3.ResumeLayout(False)
+        Me.GroupBox3.PerformLayout()
+        Me.TableLayoutPanel3.ResumeLayout(False)
+        Me.TableLayoutPanel3.PerformLayout()
+        Me.GroupBox4.ResumeLayout(False)
+        Me.GroupBox4.PerformLayout()
+        Me.MenuStrip1.ResumeLayout(False)
+        Me.MenuStrip1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents RadioButton2 As RadioButton
+    Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
+    Friend WithEvents GroupBox2 As GroupBox
+    Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
+    Friend WithEvents RadioButton3 As RadioButton
+    Friend WithEvents RadioButton4 As RadioButton
+    Friend WithEvents GroupBox3 As GroupBox
+    Friend WithEvents TextBoxLog As TextBox
+    Friend WithEvents ButtonOdpriLog As Button
+    Friend WithEvents OpenFileDialogNast As OpenFileDialog
+    Friend WithEvents SaveFileDialogLog As SaveFileDialog
+    Friend WithEvents RadioButton1 As RadioButton
+    Friend WithEvents TableLayoutPanel3 As TableLayoutPanel
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents TextBoxQuickSet As TextBox
+    Friend WithEvents TextBoxSetAzi As TextBox
+    Friend WithEvents TextBoxRes As TextBox
+    Friend WithEvents TextBoxFree As TextBox
+    Friend WithEvents TextBoxOriHt As TextBox
+    Friend WithEvents TextBoxMeas As TextBox
+    Friend WithEvents TextBoxImport As TextBox
+    Friend WithEvents Label9 As Label
+    Friend WithEvents TextBoxMeasOri As TextBox
+    Friend WithEvents Label11 As Label
+    Friend WithEvents Label10 As Label
+    Friend WithEvents Label13 As Label
+    Friend WithEvents Label12 As Label
+    Friend WithEvents TextBoxStojInfo As TextBox
+    Friend WithEvents TextBoxStoj As TextBox
+    Friend WithEvents Label14 As Label
+    Friend WithEvents Label15 As Label
+    Friend WithEvents GroupBox4 As GroupBox
+    Friend WithEvents LabelFontInfo As Label
+    Friend WithEvents ButtonFont As Button
+    Friend WithEvents FontDialog1 As FontDialog
+    Friend WithEvents SaveFileDialogNast As SaveFileDialog
+    Friend WithEvents MenuStrip1 As MenuStrip
+    Friend WithEvents DatotekaToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents IzvoziKodeToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents UvoziKodeToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
+    Friend WithEvents ZapriToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ButtonShraniZapri As Button
+    Friend WithEvents Label7 As Label
+    Friend WithEvents TextBoxOriHz As TextBox
+    Friend WithEvents PonastaviKodeToolStripMenuItem As ToolStripMenuItem
+End Class

FormNastavitve.vb

@@ -0,0 +1,240 @@
+Imports System.IO
+
+Public Class FormNastavitve
+
+    Private Sub FormNastavitve_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        ' Izvedi pri nalaganju okna z nastavitvami
+        If My.Settings.Stolpci = 0 Then
+            RadioButton1.Checked = True
+        ElseIf My.Settings.Stolpci = 1 Then
+            RadioButton2.Checked = True
+        End If
+
+        If My.Settings.DecimalnoLocilo = "Pika" Then
+            RadioButton3.Checked = True
+        ElseIf My.Settings.DecimalnoLocilo = "Vejica" Then
+            RadioButton4.Checked = True
+        End If
+
+        TextBoxStoj.Text = My.Settings.KodaStojisce.ToString
+        TextBoxStojInfo.Text = My.Settings.KodaStojisceInfo.ToString
+        TextBoxOriHz.Text = My.Settings.KodaStojisceOri.ToString
+        TextBoxQuickSet.Text = My.Settings.KodaQuickSet.ToString
+        TextBoxSetAzi.Text = My.Settings.KodaSetAzi.ToString
+        TextBoxRes.Text = My.Settings.KodaResection.ToString
+        TextBoxFree.Text = My.Settings.KodaFreeStation.ToString
+        TextBoxOriHt.Text = My.Settings.KodaOriHtTrans.ToString
+        TextBoxMeasOri.Text = My.Settings.KodaMeasOri.ToString
+        TextBoxMeas.Text = My.Settings.KodaMeas.ToString
+        TextBoxImport.Text = My.Settings.KodaUserImport.ToString
+        TextBoxLog.Text = My.Settings.DatLogfile.ToString
+
+        LabelFontInfo.Text = My.Settings.Pisava + " / " + My.Settings.PisavaVelikost.ToString
+
+    End Sub
+    Private Sub FormNastavitve_Closing(sender As Object, e As EventArgs) Handles MyBase.Closing
+        ' Izvedi preden zapreš okno z nastavitvami
+        If RadioButton1.Checked = True Then
+            My.Settings.Stolpci = 0
+        End If
+
+        If RadioButton2.Checked = True Then
+            My.Settings.Stolpci = 1
+        End If
+
+        If RadioButton3.Checked = True Then
+            My.Settings.DecimalnoLocilo = "Pika"
+        End If
+
+        If RadioButton4.Checked = True Then
+            My.Settings.DecimalnoLocilo = "Vejica"
+        End If
+
+        My.Settings.KodaStojisce = TextBoxStoj.Text
+        My.Settings.KodaStojisceInfo = TextBoxStojInfo.Text
+        My.Settings.KodaStojisceOri = TextBoxOriHz.Text
+        My.Settings.KodaQuickSet = TextBoxQuickSet.Text
+        My.Settings.KodaSetAzi = TextBoxSetAzi.Text
+        My.Settings.KodaResection = TextBoxRes.Text
+        My.Settings.KodaFreeStation = TextBoxFree.Text
+        My.Settings.KodaOriHtTrans = TextBoxOriHt.Text
+        My.Settings.KodaMeasOri = TextBoxMeasOri.Text
+        My.Settings.KodaMeas = TextBoxMeas.Text
+        My.Settings.KodaUserImport = TextBoxImport.Text
+        My.Settings.DatLogfile = TextBoxLog.Text
+
+        My.Settings.Save()
+
+        ShraniNastDat()
+
+        Form1.DatotekaLogfile = My.Settings.DatLogfile
+        Form1.RichTextBox1.Font = New Font(My.Settings.Pisava, My.Settings.PisavaVelikost)
+    End Sub
+
+    Public Sub ShraniNastDat()
+        ' Izvoz kodiranja v TXT datoteko
+        Dim dataNast As String = ""
+
+        dataNast = dataNast + "DecimalnoLocilo = " + My.Settings.DecimalnoLocilo + vbCrLf
+        dataNast = dataNast + "StolpciTab = " + My.Settings.Stolpci.ToString + vbCrLf
+        dataNast = dataNast + "KodaStojisce = " + My.Settings.KodaStojisce + vbCrLf
+        dataNast = dataNast + "KodaStojisceInfo = " + My.Settings.KodaStojisceInfo + vbCrLf
+        dataNast = dataNast + "KodaStojisceOri = " + My.Settings.KodaStojisceOri + vbCrLf
+        dataNast = dataNast + "KodaQuickSet = " + My.Settings.KodaQuickSet + vbCrLf
+        dataNast = dataNast + "KodaSetAzi = " + My.Settings.KodaSetAzi + vbCrLf
+        dataNast = dataNast + "KodaResection = " + My.Settings.KodaResection + vbCrLf
+        dataNast = dataNast + "KodaFreeStation = " + My.Settings.KodaFreeStation + vbCrLf
+        dataNast = dataNast + "KodaOriHtTrans = " + My.Settings.KodaOriHtTrans + vbCrLf
+        dataNast = dataNast + "KodaMeasOri = " + My.Settings.KodaMeasOri + vbCrLf
+        dataNast = dataNast + "KodaMeas = " + My.Settings.KodaMeas + vbCrLf
+        dataNast = dataNast + "KodaUserImport = " + My.Settings.KodaUserImport + vbCrLf
+
+        My.Computer.FileSystem.WriteAllText("tps1100_kode.txt", dataNast, False)
+
+    End Sub
+
+    Private Sub ButtonOdpriLog_Click(sender As Object, e As EventArgs) Handles ButtonOdpriLog.Click
+        ' Pokaži pot do datoteke z zapisnikom procesiranja
+        If SaveFileDialogLog.ShowDialog = DialogResult.OK Then
+            TextBoxLog.Text = SaveFileDialogLog.FileName.ToString
+            My.Settings.DatLogfile = SaveFileDialogLog.FileName.ToString
+        End If
+    End Sub
+
+    Private Sub ButtonFont_Click(sender As Object, e As EventArgs) Handles ButtonFont.Click
+        ' Izbira pisave za prikaz v glavnem oknu
+        Dim fontdia1 = FontDialog1.Font.Name = My.Settings.Pisava
+        Dim fontdia2 = FontDialog1.Font.Size = My.Settings.PisavaVelikost
+
+        If FontDialog1.ShowDialog = DialogResult.OK Then
+            My.Settings.Pisava = FontDialog1.Font.Name
+            My.Settings.PisavaVelikost = FontDialog1.Font.Size
+            LabelFontInfo.Text = My.Settings.Pisava + " / " + My.Settings.PisavaVelikost.ToString
+        End If
+    End Sub
+
+    Private Sub IzvoziKodeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IzvoziKodeToolStripMenuItem.Click
+        ' Izvoz kodiranja v TXT datoteko
+        Dim dataNast As String = ""
+
+        dataNast = dataNast + "DecimalnoLocilo = " + My.Settings.DecimalnoLocilo + vbCrLf
+        dataNast = dataNast + "StolpciTab = " + My.Settings.Stolpci.ToString + vbCrLf
+        dataNast = dataNast + "KodaStojisce = " + My.Settings.KodaStojisce + vbCrLf
+        dataNast = dataNast + "KodaStojisceInfo = " + My.Settings.KodaStojisceInfo + vbCrLf
+        dataNast = dataNast + "KodaStojisceOri = " + My.Settings.KodaStojisceOri + vbCrLf
+        dataNast = dataNast + "KodaQuickSet = " + My.Settings.KodaQuickSet + vbCrLf
+        dataNast = dataNast + "KodaSetAzi = " + My.Settings.KodaSetAzi + vbCrLf
+        dataNast = dataNast + "KodaResection = " + My.Settings.KodaResection + vbCrLf
+        dataNast = dataNast + "KodaFreeStation = " + My.Settings.KodaFreeStation + vbCrLf
+        dataNast = dataNast + "KodaOriHtTrans = " + My.Settings.KodaOriHtTrans + vbCrLf
+        dataNast = dataNast + "KodaMeasOri = " + My.Settings.KodaMeasOri + vbCrLf
+        dataNast = dataNast + "KodaMeas = " + My.Settings.KodaMeas + vbCrLf
+        dataNast = dataNast + "KodaUserImport = " + My.Settings.KodaUserImport + vbCrLf
+
+        If SaveFileDialogNast.ShowDialog = DialogResult.OK Then
+            My.Computer.FileSystem.WriteAllText(SaveFileDialogNast.FileName, dataNast, False)
+        End If
+    End Sub
+
+    Private Sub UvoziKodeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UvoziKodeToolStripMenuItem.Click
+        ' Uvoz nastavitev iz datototeke
+        If OpenFileDialogNast.ShowDialog = DialogResult.OK Then
+            Dim streamReader As StreamReader = New StreamReader(OpenFileDialogNast.FileName)
+            Do Until streamReader.EndOfStream
+                ' Read and Split each line to separate it into fields
+                Dim line() As String = streamReader.ReadLine().Split("=")
+                Dim kodaIme As String
+                Dim kodaVal As String
+                kodaIme = Replace(line(0), " ", "")
+                kodaVal = Replace(line(1), " ", "")
+                If kodaIme = "KodaStojisce" Then
+                    My.Settings.KodaStojisce = kodaVal
+                    TextBoxStoj.Text = kodaVal.ToString
+                End If
+                If kodaIme = "KodaStojisceInfo" Then
+                    My.Settings.KodaStojisceInfo = kodaVal
+                    TextBoxStojInfo.Text = kodaVal.ToString
+                End If
+                If kodaIme = "KodaStojisceOri" Then
+                    My.Settings.KodaStojisceOri = kodaVal
+                    TextBoxOriHz.Text = kodaVal.ToString
+                End If
+                If kodaIme = "KodaQuickSet" Then
+                    My.Settings.KodaQuickSet = kodaVal
+                    TextBoxQuickSet.Text = kodaVal.ToString
+                End If
+                If kodaIme = "KodaSetAzi" Then
+                    My.Settings.KodaSetAzi = kodaVal
+                    TextBoxSetAzi.Text = kodaVal.ToString
+                End If
+                If kodaIme = "KodaResection" Then
+                    My.Settings.KodaResection = kodaVal
+                    TextBoxRes.Text = kodaVal.ToString
+                End If
+                If kodaIme = "KodaFreeStation" Then
+                    My.Settings.KodaFreeStation = kodaVal
+                    TextBoxFree.Text = kodaVal.ToString
+                End If
+                If kodaIme = "KodaOriHtTrans" Then
+                    My.Settings.KodaOriHtTrans = kodaVal
+                    TextBoxOriHt.Text = kodaVal.ToString
+                End If
+                If kodaIme = "KodaMeasOri" Then
+                    My.Settings.KodaMeasOri = kodaVal
+                    TextBoxMeasOri.Text = kodaVal.ToString
+                End If
+                If kodaIme = "KodaMeas" Then
+                    My.Settings.KodaMeas = kodaVal
+                    TextBoxMeas.Text = kodaVal.ToString
+                End If
+                If kodaIme = "KodaUserImport" Then
+                    My.Settings.KodaUserImport = kodaVal
+                    TextBoxImport.Text = kodaVal.ToString
+                End If
+            Loop
+
+            streamReader.Close()
+            streamReader.Dispose()
+            My.Settings.Save()
+
+        End If
+    End Sub
+
+    Private Sub ButtonShraniZapri_Click(sender As Object, e As EventArgs) Handles ButtonShraniZapri.Click
+        Me.Close()
+
+    End Sub
+    Private Sub ZapriToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZapriToolStripMenuItem.Click
+        Me.Close()
+
+    End Sub
+
+    Private Sub PonastaviKodeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PonastaviKodeToolStripMenuItem.Click
+        ' Ponastavi Kode na privzete vrednosti
+        My.Settings.KodaStojisce = "1"
+        My.Settings.KodaStojisceInfo = "2"
+        My.Settings.KodaStojisceOri = "3"
+        My.Settings.KodaQuickSet = "10"
+        My.Settings.KodaSetAzi = "20"
+        My.Settings.KodaResection = "30"
+        My.Settings.KodaFreeStation = "40"
+        My.Settings.KodaOriHtTrans = "50"
+        My.Settings.KodaMeasOri = "80"
+        My.Settings.KodaMeas = "90"
+        My.Settings.KodaUserImport = "99"
+
+        My.Settings.Save()
+
+        TextBoxStoj.Text = My.Settings.KodaStojisce.ToString
+        TextBoxStojInfo.Text = My.Settings.KodaStojisceInfo.ToString
+        TextBoxOriHz.Text = My.Settings.KodaStojisceOri.ToString
+        TextBoxQuickSet.Text = My.Settings.KodaQuickSet.ToString
+        TextBoxSetAzi.Text = My.Settings.KodaSetAzi.ToString
+        TextBoxRes.Text = My.Settings.KodaResection.ToString
+        TextBoxFree.Text = My.Settings.KodaFreeStation.ToString
+        TextBoxOriHt.Text = My.Settings.KodaOriHtTrans.ToString
+        TextBoxMeasOri.Text = My.Settings.KodaMeasOri.ToString
+        TextBoxMeas.Text = My.Settings.KodaMeas.ToString
+        TextBoxImport.Text = My.Settings.KodaUserImport.ToString
+    End Sub
+End Class

GSI_data.ini

@@ -1,139 +0,0 @@
-[WORD_INDEX]
-11 = Pointnumber # 11 / block: 11....+00000H66
-# PtNo=“H66“
-12 = Serial number # 12 / block: 12....+00640054
-# S.No. “640054”
-13 = Instrument type # 13; 13....+00TCR305
-# Instr. “TCR305”
-19 = Time # 19 / block: 19....+02081029
-# [MM.DD.hh.mm]
-21 = Horizontal Angle # 21 / block: 21.102+17920860
-# Hz „179.086“ gon
-22 = Vertical Angle # 22 / block: 22.102+07567500
-# V: „75.675“ gon
-25 = Horizontal Angle Delta Azimuth # 22 / block: 22.102+07567500
-# V: „75.675“ gon
-31 = Slope distance # 31; e-g. 31..00+00003387
-# Sdist: „3.387“ m
-32 = Horizontal distance # 32 / block: 32..00+00003198
-# Hdist: „3.198“ m
-33 = Height difference # 33 / block: 33..00+00001119
-# Hdiff: „1.119“ m
-41 = Code-Block ID # 41 / block: 41....+00000013
-# Code: „13“ m
-42 = Information 1 # 42 / block: 42....+000TREES
-# Info1: „TREES“
-43 = Information 2 # 43 / block: 43....+000004.5
-# Info2: „4.5“
-44 = Information 3 # 44 / block: 44....+00CAT.02
-# Info3: „CAT.02“
-45 = Information 4 # 45 / block: 45....+000000NN
-# Info4: „NN“
-46 = Information 5 # 46 / block: 46....+000000NN
-# Info5: „NN“
-47 = Information 6 # 47 / block: 47....+000000NN
-# Info6: „NN“
-48 = Information 7 # 48 / block: 48....+000000NN
-# Info7: „NN“
-49 = Information 8 # 49 / block: 49....+000000NN
-# Info8: „NN“
-51 = PPM/mm # 51 / block: 51..1.+0000+034
-# “0”ppm; “34”mm
-58 = Prism constant # 58 / block: 58..16+00000020
-# Prism „2“ mm
-59 = PPM # 59 / block: 59..16+02200000
-# PPM „220“
-71 = Remark 1
-# (or Attribute 1)
-# 71 / block: 71....+0000REM1
-# “REM1”
-72 = Remark 2
-# (or Attribute 2)
-# 72 / block: 72....+0000REM2
-# “REM2”
-73 = Remark 3
-# (or Attribute 3)
-# 73 / block: 73....+0000REM3
-# “REM3”
-74 = Remark 4
-# (or Attribute 4)
-# 74 / block: 74....+0000REM4
-# “REM4”
-75 = Remark 5
-# (or Attribute 5)
-# 75 / block: 75....+0000REM5
-# “REM5”
-76 = Remark 6
-# (or Attribute 6)
-# 76 / block: 76....+0000REM6
-# “REM6”
-77 = Remark 7
-# (or Attribute 7)
-# 77 / block: 77....+0000REM7
-# “REM7”
-78 = Remark 8 # (or Attribute 8)
-# 78 / block: 78....+0000REM8
-# “REM8”
-79 = Remark 9
-# (or Attribute 9)
-# 79 / block: 79....+0000REM9
-# “REM9”
-81 = Easting
-# (E)
-# 81 / block: 81..00+01999507
-# E: “1999.507”m
-82 = Northing
-# (N)
-# 82 / block: 82..00+00213159
-# N: “2139.159”m
-83 = Elevation
-# (H)
-# 83 / block: 83..00-00032881
-# H: “32.881”m
-84 = St. Easting
-# (E0)
-# 84 / block: 84..11+00393700
-# E: “393.700”m
-85 = St. Northing
-# (N0)
-# 85 / block: 85..11+06561220
-# N: “6561.220”m
-86 = St. Height
-# (H0)
-# 86 / block: 86..11+00065618
-# H: “65.618”m
-87 = Reflector height
-# (hr)
-# 87 / block: 87..11+00001700
-# hr: “1.700” m
-88 = Instrument height
-# (hi)
-# 88 / block: 88..11+00001550
-# hi: “1.550” m
-
-[AUTOMATIC_INDEX_INFORMATION]
-# POS : 4
-0 = Automatic index OFF
-1 = Automatic index OPERATING
-3 = Automatic index OPERATING
-
-[INPUT_MODE]
-# POS : 5
-0 = Original measured values transferred from the instrument
-1 = Manual input from keyboard
-2 = Measured value, Hz-Correction ON
-3 = Measured value, Hz-Correction OFF
-4 = Result of special function
-
-[UNITS]
-# POS : 6
-0 = Meter # (last digit: 1mm / 0.000m)
-1 = Feet # (last digit: 1/1000ft / 0.000ft)
-2 = 400 gon
-3 = 360° decimal # (DDD.DDDDD)
-4 = 360° sexagesimal # (DDD.MMSSS)
-5 = 6400 mil
-6 = Meter # (last digit: 1/10mm)
-7 = Feet # (last digit: 1/10‘000ft)
-8 = Meter # (last digit: 1/100mm)
-

GSI_user.ini

@@ -1,8 +0,0 @@
-[CODE]
-10 = Quick Set
-20 = Set Azimuth
-30 = Resection
-40 = Free Station
-90 = Measured Data
-99 = Imported Data
-

My Project/Application.Designer.vb

@@ -27,7 +27,7 @@ Namespace My
             Me.IsSingleInstance = false
             Me.EnableVisualStyles = false
             Me.SaveMySettingsOnExit = true
-            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterAllFormsClose
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
         End Sub
         
         <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _

My Project/Application.myapp

@@ -3,7 +3,7 @@
   <MySubMain>true</MySubMain>
   <MainForm>Form1</MainForm>
   <SingleInstance>false</SingleInstance>
-  <ShutdownMode>1</ShutdownMode>
+  <ShutdownMode>0</ShutdownMode>
   <EnableVisualStyles>false</EnableVisualStyles>
   <AuthenticationMode>0</AuthenticationMode>
   <MinimumSplashScreenDisplayTime>0</MinimumSplashScreenDisplayTime>

My Project/AssemblyInfo.vb

@@ -10,8 +10,8 @@ Imports System.Runtime.InteropServices
 ' Review the values of the assembly attributes
 
 <Assembly: AssemblyTitle("TPS1100 Convert")>
-<Assembly: AssemblyDescription("Program za konvertiranje GSI datotek")>
-<Assembly: AssemblyCompany("2B geoinformatika, d.o.o.")>
+<Assembly: AssemblyDescription("Program za procesiranje GSI podatkov")>
+<Assembly: AssemblyCompany("MultiBox")>
 <Assembly: AssemblyProduct("TPS1100 Convert")>
 <Assembly: AssemblyCopyright("Copyright © 2024")>
 <Assembly: AssemblyTrademark("")>
@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.5.0.5")>
-<Assembly: AssemblyFileVersion("2.5.0.5")>
+<Assembly: AssemblyVersion("2.8.0.2")>
+<Assembly: AssemblyFileVersion("2.8.0.2")>
 <Assembly: NeutralResourcesLanguage("sl-SI")>