下面做一个调用的实例， 调用 advapi32.dll中的 GetUserName 函数  来获得系统登录的用户名 。

Imports System
Imports System.Text
Imports Microsoft.VisualBasic

Public Class Form3Class Form3
    Declare Function GetUsername()Function GetUsername Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpbuffer As String, ByRef nSize As Integer) _
    As Integer

    Private Sub Button3_Click()Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim RV As Integer
        Dim UserName As String
        Dim Buffer As String
        Buffer = New String(CChar(" "), 25)
        RV = GetUsername(Buffer, 25)
        UserName = Microsoft.VisualBasic.Left(Buffer, InStr(Buffer, Chr(0)) - 1)
        MsgBox(UserName)
    End Sub
End Class

当然，DotNet FrameWork 2.0已经提供了丰富的类库。我们可以不必调用 WIN32 API  就可以得到基本上所有的功能，尤其是当 微软 的操作系统也已经 架设 在 .net FrameWork 上之后。