Universal Accounting Manager - About.vb

About.vb

1. Public Class About
2.     Private Shared AboutInstance As About
3.     Public Shared Function GetInstance() As About
4.         If (AboutInstance Is Nothing) Then
5.             AboutInstance = New About
6.         End If
7.         Return AboutInstance
8.     End Function
9.  
10.     Private Sub About_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
11.         Label1.Text = My.Application.Info.ProductName.ToString
12.         Label2.Text = My.Application.Info.Copyright.ToString
13.         'Label8.Text = My.Application.Info.CompanyName.ToString & System.Environment.NewLine & "بإدارة المهندس وسام نفاع"
14.     End Sub
15.     Private Sub ProductCancleBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductCancleBTN.Click
16.         StartUp.CloseTabs()
17.     End Sub
18.  
19.     Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
20.  
21.     End Sub
22. End Class