Universal Accounting Manager - Resources

The important thing in glad programming user interface is the "Resources".
Each Visual Studio.NET project has Resources folder to store all type of images and bitmaps or icons etc...
In our tutorials you must download the Resources folder and paste it to your project folder, to make sure that your project will working as we programming.
Download the Universal Accounting Manager - Resources folder from Google Drive.

Visual Basic.NET E-Tutor & E-Learning website

Wesam Naffaa

Universal Accounting Manager - ViewBox.vb

ViewBox.vb

1. Public Class ViewBox
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 VendorsPath As String = DataPath & "\Vendors"
13.     Dim BoxPath As String = DataPath & "\Box"
14.     Dim YearSTR As String = Date.Now.Year
15.     Dim MonthSTR As String = Date.Now.Month
16.     Dim DaySTR As String = Date.Now.Day
17.     Dim Status As String = ""
18.     Private Shared ViewBoxInstance As ViewBox
19.     Public Shared Function GetInstance() As ViewBox
20.         If (ViewBoxInstance Is Nothing) Then
21.             ViewBoxInstance = New ViewBox
22.         End If
23.         Return ViewBoxInstance
24.     End Function
25.     Private Sub ViewBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Universal Accounting Manager - ViewBox.Designer.vb

ViewBox.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class ViewBox
3.     Inherits System.Windows.Forms.UserControl
4.  
5.     'UserControl overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         If disposing AndAlso components IsNot Nothing Then
9.             components.Dispose()
10.         End If
11.         MyBase.Dispose(disposing)
12.     End Sub
13.  
14.     'Required by the Windows Form Designer
15.     Private components As System.ComponentModel.IContainer
16.  
17.     'NOTE: The following procedure is required by the Windows Form Designer
18.     'It can be modified using the Windows Form Designer.  
19.     'Do not modify it using the code editor.
20.     <System.Diagnostics.DebuggerStepThrough()> _
21.     Private Sub InitializeComponent()
22.         Me.components = New System.ComponentModel.Container()
23.         Me.Pan1LBL = New System.Windows.Forms.Label()
24.         Me.Label1 = New System.Windows.Forms.Label()
25.         Me.Label4 = New System.Windows.Forms.Label()

Universal Accounting Manager - StoreCat.vb

StoreCat.vb

1. Public Class StoreCat
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 VendorsPath As String = DataPath & "\Vendors"
13.     Private Shared StoreCatInstance As StoreCat
14.     Public Shared Function GetInstance() As StoreCat
15.         If (StoreCatInstance Is Nothing) Then
16.             StoreCatInstance = New StoreCat
17.         End If
18.         Return StoreCatInstance
19.     End Function
20.     Private Sub StoreCat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
21.         LV.Columns.Add("إسم السلعة \ المنتج")
22.         LV.Columns.Add("الكمية")
23.         LV.Columns.Add("الكمية المباعة")
24.         LV.Columns.Add("سعر المبيع")
25.         LV.Columns.Add("ربح القطعة")

Universal Accounting Manager - StoreCat.Designer.vb

StoreCat.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class StoreCat
3.     Inherits System.Windows.Forms.UserControl
4.  
5.     'UserControl overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         If disposing AndAlso components IsNot Nothing Then
9.             components.Dispose()
10.         End If
11.         MyBase.Dispose(disposing)
12.     End Sub
13.  
14.     'Required by the Windows Form Designer
15.     Private components As System.ComponentModel.IContainer
16.  
17.     'NOTE: The following procedure is required by the Windows Form Designer
18.     'It can be modified using the Windows Form Designer.  
19.     'Do not modify it using the code editor.
20.     <System.Diagnostics.DebuggerStepThrough()> _
21.     Private Sub InitializeComponent()
22.         Me.components = New System.ComponentModel.Container()
23.         Me.ProductCancleBTN = New System.Windows.Forms.Button()
24.         Me.RenameStoreBTN = New System.Windows.Forms.Button()
25.         Me.ProductNameLBL = New System.Windows.Forms.Label()
26.         Me.CNameTXT = New System.Windows.Forms.ComboBox()

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

Universal Accounting Manager - StartUp.Designer.vb

StartUp.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class StartUp
3.     Inherits System.Windows.Forms.Form
4.  
5.     'Form overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         If disposing AndAlso components IsNot Nothing Then
9.             components.Dispose()
10.         End If
11.         MyBase.Dispose(disposing)
12.     End Sub
13.  
14.     'Required by the Windows Form Designer
15.     Private components As System.ComponentModel.IContainer
16.  
17.     'NOTE: The following procedure is required by the Windows Form Designer
18.     'It can be modified using the Windows Form Designer.  
19.     'Do not modify it using the code editor.
20.     <System.Diagnostics.DebuggerStepThrough()> _
21.     Private Sub InitializeComponent()
22.         Me.components = New System.ComponentModel.Container()
23.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(StartUp))
24.         Me.UpDockLBL = New System.Windows.Forms.Label()
25.         Me.DownDockLBL = New System.Windows.Forms.Label()

Universal Accounting Manager - Shortcuts.vb

Shortcuts.vb

1. Public Class Shortcuts
2.     Private Shared PanelInstance As Shortcuts
3.     Public Shared Function GetInstance() As Shortcuts
4.         If (PanelInstance Is Nothing) Then
5.             PanelInstance = New Shortcuts
6.         End If
7.         Return PanelInstance
8.     End Function
9.     Private Sub Shortcuts_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
10.         AddHandler AccountingPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
11.         AddHandler AccountingPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
12.         AddHandler AccountingPIC.MouseDown, AddressOf StartUp.PicMouseDown
13.         AddHandler AccountingPIC.MouseUp, AddressOf StartUp.PicMouseUp
14.         AddHandler SettingPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
15.         AddHandler SettingPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
16.         AddHandler SettingPIC.MouseDown, AddressOf StartUp.PicMouseDown
17.         AddHandler SettingPIC.MouseUp, AddressOf StartUp.PicMouseUp
18.         AddHandler ImportPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
19.         AddHandler ImportPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
20.         AddHandler ImportPIC.MouseDown, AddressOf StartUp.PicMouseDown
21.         AddHandler ImportPIC.MouseUp, AddressOf StartUp.PicMouseUp
22.         AddHandler ExportPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
23.         AddHandler ExportPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
24.         AddHandler ExportPIC.MouseDown, AddressOf StartUp.PicMouseDown

Universal Accounting Manager - Shortcuts.Designer.vb

Shortcuts.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class Shortcuts
3.     Inherits System.Windows.Forms.UserControl
4.  
5.     'UserControl overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         If disposing AndAlso components IsNot Nothing Then
9.             components.Dispose()
10.         End If
11.         MyBase.Dispose(disposing)
12.     End Sub
13.  
14.     'Required by the Windows Form Designer
15.     Private components As System.ComponentModel.IContainer
16.  
17.     'NOTE: The following procedure is required by the Windows Form Designer
18.     'It can be modified using the Windows Form Designer.  
19.     'Do not modify it using the code editor.
20.     <System.Diagnostics.DebuggerStepThrough()> _
21.     Private Sub InitializeComponent()
22.         Me.Label9 = New System.Windows.Forms.Label()
23.         Me.Label8 = New System.Windows.Forms.Label()
24.         Me.Label7 = New System.Windows.Forms.Label()

Universal Accounting Manager - Setting.vb

Setting.vb

1. Public Class Setting
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 VendorsPath As String = DataPath & "\Vendors"
13.     Dim BoxPath As String = DataPath & "\Box"
14.     Dim AlertsPath As String = DataPath & "\Alerts"
15.     Dim SettingsPath As String = DataPath & "\Settings"
16.     Dim AddToVindorBoolean As Boolean = False
17.     Private Shared SettingInstance As Setting
18.     Public Shared Function GetInstance() As Setting
19.         If (SettingInstance Is Nothing) Then
20.             SettingInstance = New Setting
21.         End If
22.         Return SettingInstance
23.     End Function
24.     Public Sub TestText()
25.         'test values to add errors to Alerts :

Universal Accounting Manager - Setting.Designer.vb

Setting.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class Setting
3.     Inherits System.Windows.Forms.UserControl
4.  
5.     'UserControl overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         If disposing AndAlso components IsNot Nothing Then
9.             components.Dispose()
10.         End If
11.         MyBase.Dispose(disposing)
12.     End Sub
13.  
14.     'Required by the Windows Form Designer
15.     Private components As System.ComponentModel.IContainer
16.  
17.     'NOTE: The following procedure is required by the Windows Form Designer
18.     'It can be modified using the Windows Form Designer.  
19.     'Do not modify it using the code editor.
20.     <System.Diagnostics.DebuggerStepThrough()> _
21.     Private Sub InitializeComponent()
22.         Me.ProductCancleBTN = New System.Windows.Forms.Button()
23.         Me.ProductShowBTN = New System.Windows.Forms.Button()
24.         Me.FooterTXT = New System.Windows.Forms.TextBox()
25.         Me.PSizeTXT = New System.Windows.Forms.ComboBox()
26.         Me.Label1 = New System.Windows.Forms.Label()

Universal Accounting Manager - Requests.vb

Requests.vb

1. Public Class Requests
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 FItem As ListViewItem
13.     Private Shared RequestsInstance As Requests
14.     Public Shared Function GetInstance() As Requests
15.         If (RequestsInstance Is Nothing) Then
16.             RequestsInstance = New Requests
17.         End If
18.         Return RequestsInstance
19.     End Function
20.     Private Sub Requests_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
21.         LV.Columns.Add("إسم السلعة")
22.         LV.Columns.Add("الكمية المطلوبة")
23.         LV.Columns.Add("الكمية المتوفرة")

Universal Accounting Manager - Requests.Designer.vb

Requests.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class Requests
3.     Inherits System.Windows.Forms.UserControl
4.  
5.     'UserControl overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         If disposing AndAlso components IsNot Nothing Then
9.             components.Dispose()
10.         End If
11.         MyBase.Dispose(disposing)
12.     End Sub
13.  
14.     'Required by the Windows Form Designer
15.     Private components As System.ComponentModel.IContainer
16.  
17.     'NOTE: The following procedure is required by the Windows Form Designer
18.     'It can be modified using the Windows Form Designer.  
19.     'Do not modify it using the code editor.
20.     <System.Diagnostics.DebuggerStepThrough()> _
21.     Private Sub InitializeComponent()
22.         Me.components = New System.ComponentModel.Container()
23.         Me.ProductCancleBTN = New System.Windows.Forms.Button()
24.         Me.ProductShowBTN = New System.Windows.Forms.Button()
25.         Me.LV = New System.Windows.Forms.ListView()

Universal Accounting Manager - PublicDataBase.vb

PublicDataBase.vb

1. Public Class PublicDataBase
2.      Public Function DataBaseReader(ByVal Name As String, ByVal ReadEncoding As System.Text.Encoding) As String
3.         On Error Resume Next
4.         My.Computer.FileSystem.ReadAllText(Name, ReadEncoding)
5.     End Function
6.     Public Function DataBaseWriter(ByVal Name As String, ByVal Value As String, ByVal WriteBoolean As Boolean, ByVal WriteEncoding As System.Text.Encoding) As String
7.         My.Computer.FileSystem.WriteAllText(Name, Value, WriteBoolean, WriteEncoding)
8.     End Function
9. End Class

Universal Accounting Manager - PublicDataBase.Designer.vb

PublicDataBase.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class PublicDataBase
3.     Inherits System.Windows.Forms.Form
4.  
5.     'Form overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         Try
9.             If disposing AndAlso components IsNot Nothing Then
10.                 components.Dispose()
11.             End If
12.         Finally
13.             MyBase.Dispose(disposing)
14.         End Try
15.     End Sub
16.  
17.     'Required by the Windows Form Designer
18.     Private components As System.ComponentModel.IContainer
19.  
20.     'NOTE: The following procedure is required by the Windows Form Designer
21.     'It can be modified using the Windows Form Designer.  
22.     'Do not modify it using the code editor.
23.     <System.Diagnostics.DebuggerStepThrough()> _
24.     Private Sub InitializeComponent()
25.         Me.SuspendLayout()

Universal Accounting Manager - NewSell.vb

NewSell.vb

1. Public Class NewSell
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 AddToVindorBoolean As Boolean = False
16.     Friend WithEvents PrintPreviewControl1 As PrintPreviewControl
17.     Private WithEvents docToPrint As New Printing.PrintDocument
18.     Private Shared NewSellInstance As NewSell
19.     Dim DiscountMNT As Double = 0
20.     Dim DiscountMNTAfter As Double = 0
21.     Public Shared Function GetInstance() As NewSell
22.         If (NewSellInstance Is Nothing) Then
23.             NewSellInstance = New NewSell
24.         End If
25.         Return NewSellInstance
26.     End Function

Universal Accounting Manager - NewSell.Designer.vb

NewSell.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class NewSell
3.     Inherits System.Windows.Forms.UserControl
4.  
5.     'UserControl overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         If disposing AndAlso components IsNot Nothing Then
9.             components.Dispose()
10.         End If
11.         MyBase.Dispose(disposing)
12.     End Sub
13.  
14.     'Required by the Windows Form Designer
15.     Private components As System.ComponentModel.IContainer
16.  
17.     'NOTE: The following procedure is required by the Windows Form Designer
18.     'It can be modified using the Windows Form Designer.  
19.     'Do not modify it using the code editor.
20.     <System.Diagnostics.DebuggerStepThrough()> _
21.     Private Sub InitializeComponent()
22.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(NewSell))
23.         Me.NewSellBarcodeLBL = New System.Windows.Forms.Label()
24.         Me.NewSellBarcodeTXT = New System.Windows.Forms.TextBox()

Universal Accounting Manager - NewProduct.vb

NewProduct.vb

1. Public Class NewProduct
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 AlertsPath As String = DataPath & "\Alerts"
9.     Dim StoreNumber As Integer = 0
10.     Dim CalledFrom As String = ""
11.     Dim LastPriceInformation() As Double = {0, 0, 0}
12.     Private Shared NewProductInstance As NewProduct
13.     Public Shared Function GetInstance() As NewProduct
14.         If (NewProductInstance Is Nothing) Then
15.             NewProductInstance = New NewProduct
16.         End If
17.         Return NewProductInstance
18.     End Function
19.     Public Sub CalledFromWindow(ByVal SName As String, ByVal Pname As String)
20.         CalledFrom = SName

Universal Accounting Manager - NewProduct.Designer.vb

NewProduct.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class NewProduct
3.     Inherits System.Windows.Forms.UserControl
4.  
5.     'UserControl overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         If disposing AndAlso components IsNot Nothing Then
9.             components.Dispose()
10.         End If
11.         MyBase.Dispose(disposing)
12.     End Sub
13.  
14.     'Required by the Windows Form Designer
15.     Private components As System.ComponentModel.IContainer
16.  
17.     'NOTE: The following procedure is required by the Windows Form Designer
18.     'It can be modified using the Windows Form Designer.  
19.     'Do not modify it using the code editor.
20.     <System.Diagnostics.DebuggerStepThrough()> _
21.     Private Sub InitializeComponent()
22.         Me.ProductMountLBL = New System.Windows.Forms.Label()

Universal Accounting Manager - NewMerchant.vb

NewMerchant.vb

1. Public Class NewMerchant
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 VendorsPath As String = DataPath & "\Vendors"
13.     Dim BoxPath As String = DataPath & "\Box"
14.     Dim AlertsPath As String = DataPath & "\Alerts"
15.     Dim SettingsPath As String = DataPath & "\Settings"
16.     Dim MaxList As Integer = 0
17.     Dim FromList As Integer = 0
18.     Dim ToList As Integer = 0
19.     Private Shared NewMerchantInstance As NewMerchant
20.     Public Shared Function GetInstance() As NewMerchant
21.         If (NewMerchantInstance Is Nothing) Then
22.             NewMerchantInstance = New NewMerchant
23.         End If
24.         Return NewMerchantInstance
25.     End Function
26.     Private Sub NewMerchant_Load(ByVal sender As System.Object, ByVal e As