PageRenderTime 46ms CodeModel.GetById 18ms RepoModel.GetById 0ms app.codeStats 0ms

/Visual Studio 2008/CSDllCOMServer/CSDllCOMClient.vbs

#
Visual Basic | 15 lines | 7 code | 5 blank | 3 comment | 0 complexity | db8a389a41487d9292ebaaa8e8f9cea7 MD5 | raw file
  1. SET obj = CreateObject("CSDllCOMServer.SimpleObject")
  2. MsgBox "A CSDllCOMServer.SimpleObject object is created"
  3. ' Call the HelloWorld method that returns a string
  4. MsgBox "The HelloWorld method returns " & obj.HelloWorld
  5. ' Set the FloatProperty property
  6. MsgBox "Set the FloatProperty property to 1.2"
  7. obj.FloatProperty = 1.2
  8. ' Get the FloatProperty property
  9. MsgBox "The FloatProperty property returns " & obj.FloatProperty
  10. SET obj = Nothing