Mega Code Archive

 

Categories / VB.Net Tutorial / Language Basics

 

Use Namespace

Namespace MyApp.Info     Module Main         Sub Main()             Dim objHW As New MyApp.Info.Utilities             objHW.DisplayData()         End Sub     End Module     Public Class Utilities         'Run the application         Public Sub DisplayData()             Console.WriteLine(Environment.MachineName)             Console.WriteLine(Environment.SystemDirectory)             Console.WriteLine(Environment.GetLogicalDrives())             Console.WriteLine(Environment.Version.ToString())         End Sub     End Class End Namespace RNTSOFT C:\WINDOWS\system32 System.String[] 2.0.50727.42