CurionLib Dynamic Data Entry Forms

Namespace Controls.Form
	Public Class SuspendFormGeneration
		Implements IDisposable
		Private _form As DataForm
		Sub New(form As DataForm)
			_form = form
			Call form.SaveSuspendFormGeneration()
		End Sub
#Region "IDisposable Support"
		Private disposedValue As Boolean ' To detect redundant calls
		' IDisposable
		Protected Overridable Sub Dispose(disposing As Boolean)
			If Not Me.disposedValue Then
				If disposing Then
					_form.RestoreSuspendFormGeneration()
				End If
			End If
			Me.disposedValue = True
		End Sub
		' This code added by Visual Basic to correctly implement the disposable pattern.
		Public Sub Dispose() Implements IDisposable.Dispose
			' Do not change this code.  Put cleanup code in Dispose(disposing As Boolean) above.
			Dispose(True)
			GC.SuppressFinalize(Me)
		End Sub
#End Region
	End Class
End Namespace