'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by CodeSmith.
'     Version: 3.1.4.481
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------
Imports System
Imports System.Runtime.Serialization
Imports System.Threading
Imports Mbark
Imports Mbark.SystemCoordinationMessages

Namespace Mbark


<Serializable()> Public Class MbarkRemotingException
        Inherits MbarkException
		
		Public Sub New()
            MyBase.New(Messages.GeneralMbarkRemotingException)
        End Sub        

		Public Sub New(ByVal msg As String, ByVal ex As Exception)
            MyBase.New(msg, ex)
        End Sub

        Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
            MyBase.New(info, context)
        End Sub
		
	
		Public Sub New(ByVal msg As String)
            MyBase.New(msg)
        End Sub
	
 
 End Class

	


<Serializable()> Public Class CouldNotInstantiateRemoteObjectException
        Inherits MbarkRemotingException
		
		Public Sub New()
            MyBase.New(Messages.GeneralCouldNotInstantiateRemoteObjectException)
        End Sub        

		Public Sub New(ByVal msg As String, ByVal ex As Exception)
            MyBase.New(msg, ex)
        End Sub

        Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
            MyBase.New(info, context)
        End Sub
		
	
		Public Sub New(ByVal t As Type)
			MyBase.New(Messages.SpecificCouldNotInstantiateRemoteObjectException(t))
		End Sub
	
		Public Sub New(ByVal msg As String)
            MyBase.New(msg)
        End Sub
	
 
 End Class

	


<Serializable()> Public Class NoSuchWellKnownClientTypeException
        Inherits MbarkRemotingException
		
		Public Sub New()
            MyBase.New(Messages.GeneralNoSuchWellKnownClientTypeException)
        End Sub        

		Public Sub New(ByVal msg As String, ByVal ex As Exception)
            MyBase.New(msg, ex)
        End Sub

        Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
            MyBase.New(info, context)
        End Sub
		
	
		Public Sub New(ByVal t As Type)
			MyBase.New(Messages.SpecificNoSuchWellKnownClientTypeException(t))
		End Sub
	
		Public Sub New(ByVal msg As String)
            MyBase.New(msg)
        End Sub
	
 
 End Class

	


<Serializable()> Public Class AlreadyConnectedException
        Inherits MbarkRemotingException
		
		Public Sub New()
            MyBase.New(Messages.GeneralAlreadyConnectedException)
        End Sub        

		Public Sub New(ByVal msg As String, ByVal ex As Exception)
            MyBase.New(msg, ex)
        End Sub

        Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
            MyBase.New(info, context)
        End Sub
		
	
		Public Sub New(ByVal msg As String)
            MyBase.New(msg)
        End Sub
	
 
 End Class

	


<Serializable()> Public Class MissingExplicitConnectionException
        Inherits MbarkRemotingException
		
		Public Sub New()
            MyBase.New(Messages.GeneralMissingExplicitConnectionException)
        End Sub        

		Public Sub New(ByVal msg As String, ByVal ex As Exception)
            MyBase.New(msg, ex)
        End Sub

        Protected Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
            MyBase.New(info, context)
        End Sub
		
	
		Public Sub New(ByVal msg As String)
            MyBase.New(msg)
        End Sub
	
 
 End Class

End Namespace
