@DIV
Imports System.Text

Module MyModule

REM ********************************************************
REM * DLL 内 関数宣言
REM ********************************************************
Declare Function GetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As StringBuilder, @C:red(ByRef nSize As Integer)) As Integer

REM ********************************************************
REM * 実行
REM ********************************************************
Sub Main()

	Dim strName As new StringBuilder( 512 )
	Dim nSize As Integer = 512

	Call GetComputerName( strName, nSize )

	Call System.Console.WriteLine( strName )

End Sub

End Module
@END