Universal Accounting Manager - StartUp.vb

 StartUp.vb

1. Public Class StartUp
2.     Dim ProgramName As String = My.Application.Info.AssemblyName
3.     Dim DataPath As String = System.Environment.CurrentDirectory & "\UAM"
4.     Dim ProductPath As String = DataPath & "\Products" '
5.     Dim ServicesPath As String = DataPath & "\Services"
6.     Dim CatPath As String = DataPath & "\Categories"
7.     Dim StoresPath As String = DataPath & "\Stores"
8.     Dim CustomersPath As String = DataPath & "\Customers"
9.     Dim CompanyPath As String = DataPath & "\Company"
10.     Dim MovmentPath As String = DataPath & "\Movment"
11.     Dim RequestsPath As String = DataPath & "\Requests"
12.     Dim BoxPath As String = DataPath & "\Box"
13.     Dim AlertsPath As String = DataPath & "\Alerts"
14.     Dim SettingsPath As String = DataPath & "\Settings"
15.     Dim SenderName As Object
16.     Dim TabCount As Integer = 0
17.     Dim SelectedTab As String = ""
18.     Private Sub StartUp_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
19.         MainView.GetInstance.HideSubPic()
20.         If All.GetInstance.Visible = True Then
21.             OpenNewTab(All.GetInstance)
22.             CloseTabs()
23.         End If
24.     End Sub
25.     Private Sub StartUp_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing