home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 June (DVD) / DPPRO0605DVD.iso / dotNETSDK / SETUP.EXE / netfxsd1.cab / ClientVB_vb_1________.3643236F_FC70_11D3_A536_0090278A1BB8 < prev    next >
Encoding:
Text File  |  2002-05-17  |  1.1 KB  |  43 lines
  1. Option Explicit
  2. Option Strict
  3.  
  4. Imports System
  5. Imports System.Collections
  6.  
  7. Imports CompCS
  8. Imports CompVB
  9. Imports CompVC
  10.  
  11. Public Module modmain
  12.  
  13.     'The main entry point for the application
  14.     Sub Main()
  15.  
  16.          Dim Count As Integer
  17.  
  18.          ' Display result strings from C# Component
  19.          Dim MyCompCS As New CompCS.StringComponent
  20.          Console.WriteLine("Strings from C# StringComponent")
  21.          For Count = 0 To MyCompCS.Count - 1
  22.               Console.WriteLine(MyCompCS.GetString(Count))
  23.          Next
  24.          Console.WriteLine
  25.  
  26.          ' Display result strings from Visual C++ Component
  27.          Dim MyCompVC As New CompVC.StringComponent
  28.          Console.WriteLine("Strings from Visual C++ StringComponent")
  29.          For Count = 0 To MyCompVC.Count - 1
  30.               Console.WriteLine(MyCompVC.GetString(Count))
  31.          Next
  32.          Console.WriteLine
  33.  
  34.          ' Display result strings from Visual Basic Component
  35.          Dim MyCompVB As New CompVB.StringComponent
  36.          Console.WriteLine("Strings from Visual Basic StringComponent")
  37.          For Count = 0 To CInt(MyCompVB.Count) - 1
  38.               Console.WriteLine(MyCompVB.GetString(Count))
  39.          Next
  40.  
  41.     End Sub
  42.  
  43. End Module