Imports System.ServiceModel Imports DigitalData.Modules.Logging Imports EDMI_ClientSuite.NetworkService_DDEDM Namespace My ''' ''' Helper Class to hold User State ''' Public Class User Public Username As String Public MachineName As String Public Sub New() Username = Environment.UserName MachineName = Environment.MachineName End Sub End Class ''' ''' Extends the My Namespace ''' Module Extension Property LogConfig As LogConfig Property ChannelFactory As ChannelFactory(Of IEDMServiceChannel) Property Channel As IEDMServiceChannel End Module ''' ''' Extends the My.Application Namespace ''' Partial Class MyApplication ' User Config Public User As New User() End Class End Namespace