MainMenu

1 files changed, 27 insertions, 0 deletions

diff --git a/ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb b/ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb
new file mode 100644
index 0000000..ebfe7f2
--- /dev/null
+++ b/ShiftOS-TheRevival/MainForms/ShiftOS Menu.vb
@@ -0,0 +1,27 @@
+Imports System.IO
+
+Public Class Form1
+
+    Public Shared ActualBuildLab As String
+    Public Shared BuildLab() As String
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Try
+            BuildLab = File.ReadAllLines("D:\ShiftOSBuildLab.txt")
+            If BuildLab(0) = "No" Then
+                Dim BuildNum As Integer = BuildLab(1)
+                BuildNum = BuildLab(1) + 1
+                ActualBuildLab = "ShiftOS_TheRevival." & BuildLab(3) & "." & BuildNum & "." & Date.Today.Year & Date.Today.Month & Date.Today.Day
+                BuildLab(1) = BuildNum
+                File.WriteAllLines("D:\ShiftOSBuildLab.txt", BuildLab)
+            End If
+            lbl_BuildString.Text = ActualBuildLab
+        Catch ex As Exception
+            MsgBox("Why? Because of " & ex.Message)
+        End Try
+    End Sub
+
+    Private Sub btn_Exit_Click(sender As Object, e As EventArgs) Handles btn_Exit.Click
+        Close()
+    End Sub
+End Class