Public Class AppSettings
 #Region " Constructor"
     Private Sub New()
     End Sub
 #End Region

 #Region " Public Shared Properties "
     '-- Set the Company Setting Object
     Public Shared ReadOnly Property Company() As bizCompany
         Get
             Using bo As New bizCompany
                 bo.FillAllRecords()
                 If bo.Count = 0 Then
                     bo.NewRow()
                     bo.Save()
                 End If
                 Return bo
             End Using
         End Get
     End Property
End Class