diff options
Diffstat (limited to 'vb/demo/Ice/value/ObjectFactory.vb')
| -rwxr-xr-x | vb/demo/Ice/value/ObjectFactory.vb | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/vb/demo/Ice/value/ObjectFactory.vb b/vb/demo/Ice/value/ObjectFactory.vb index f81ea049ab4..8eea89d6cf5 100755 --- a/vb/demo/Ice/value/ObjectFactory.vb +++ b/vb/demo/Ice/value/ObjectFactory.vb @@ -14,20 +14,20 @@ Public Class ObjectFactory Implements Ice.ObjectFactory Public Overloads Function create(ByVal type As String) As Ice.Object Implements Ice.ObjectFactory.create - If type.Equals("::Demo::Printer") Then - Return New PrinterI - End If + If type.Equals("::Demo::Printer") Then + Return New PrinterI + End If - If type.Equals("::Demo::DerivedPrinter") Then - Return New DerivedPrinterI - End If + If type.Equals("::Demo::DerivedPrinter") Then + Return New DerivedPrinterI + End If - ' Debug.Assert(False) ' Bug in VB 7.1: Diagnostics.Debug is not found - Return Nothing + ' Debug.Assert(False) ' Bug in VB 7.1: Diagnostics.Debug is not found + Return Nothing End Function Public Overloads Sub destroy() Implements Ice.ObjectFactory.destroy - ' Nothing to do + ' Nothing to do End Sub End Class |