
662 Chapter 14 • Upgrading Visual Basic Applications to .NET
Sub DisplayUserName()
Dim strUserName As String
strUserName = String(20, " ")
Module1.GetUserName strUserName, 20
MsgBox strUserName
End Sub
After the upgrade, the code is transformed into:
Public Declare Function GetUserName Lib "advapi32.dll" Alias
"GetUserNameA"(ByVal lpBuffer As String, ByRef nSize As Integer) As
Integer
Sub DisplayUserName()
Dim strUserName As String
strUserName = New String(CChar(" "), 20)
Module1.GetUserName(strUserName, 20)
MsgBox(strUserName)
End Sub
Note the differences between the code written in Visual Basic 6.0 and that
written in Visual Basic .NET:
■
The nSize parameter ...