哪位高手讲解一下几段代码。

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long'此处声明一个名为advapi32的动态连接库的GetUserNameA的函数Public OK As Boolean          '定义一个布尔型变量Private Sub Form_Load()
    Dim sBuffer As String     '定义一个字符型变量
    Dim lSize As Long         '定义一个长整型变量
    sBuffer = Space$(255)     '返回255个空格的字符串
    lSize = Len(sBuffer)      '得知某字符串的长度(字符数)
                                或某变量的大小（位数）
    '此处你应查一下函数的定义这样才能了解他的实现细节
    '据我估计此函数应实现:取得用户名并返回其长度
    Call GetUserName(sBuffer, lSize)  
    If lSize > 0 Then
        '得到sBuffer字符串最左边的lSize个字符
        txtUserName.Text = Left$(sBuffer, lSize)
    Else
        txtUserName.Text = vbNullString     '值为0的字符串
    End If
End SubPrivate Sub cmdCancel_Click()
    OK = False
    Me.Hide     '隐藏本窗体
End Sub
Private Sub cmdOK_Click()
    'ToDo: create test for correct password
    'check for correct password
    If txtPassword.Text = "" Then
        OK = True
        Me.Hide
    Else
        MsgBox "Invalid Password, try again!", , "Login"        '以下三句是:置焦点,并反显text文本的内容
        txtPassword.SetFocus
        txtPassword.SelStart = 0
        txtPassword.SelLength = Len(txtPassword.Text)
    End If
End Sub