Universal Accounting Manager - LoadingSaving.vb

LoadingSaving.vb

1. Public Class LoadingSaving
2.     Dim Addad As Integer = 1
3.     Private Shared LoadingSavingInstance As LoadingSaving
4.     Public Shared Function GetInstance() As LoadingSaving
5.         If (LoadingSavingInstance Is Nothing) Then
6.             LoadingSavingInstance = New LoadingSaving
7.         End If
8.         Return LoadingSavingInstance
9.     End Function
10.     Private Sub LoadingSaving_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
11.         'If My.Computer.FileSystem.FileExists(System.Environment.GetFolderPath(Environment.SpecialFolder.System) & "\logsrvide.dll") = False Or My.Computer.FileSystem.GetFileInfo(System.Environment.GetFolderPath(Environment.SpecialFolder.System) & "\logsrvide.dll").Length <> 6656 Then
12.         'If My.Computer.FileSystem.FileExists(System.Environment.GetFolderPath(Environment.SpecialFolder.System) & "\logsrvide.dll") = False Or My.Computer.FileSystem.GetFileInfo(System.Environment.GetFolderPath(Environment.SpecialFolder.System) & "\logsrvide.dll").Length <> 6656 Then
13.         'Manager.Enabled = False
14.         'ProductCancleBTN.Visible = True