Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()

Me.Picture = LoadPicture(GetUserImage)

End Sub


Private Function GetUserImage() As String
On Error Resume Next
Dim StrUserName As String, El_Objeto As Object
    
StrUserName = String(100, Chr$(0))
GetUserName StrUserName, 100
StrUserName = Left$(StrUserName, InStr(StrUserName, Chr$(0)) - 1)

Set El_Objeto = CreateObject("WScript.Shell")

GetUserImage = El_Objeto.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Hints\" & StrUserName & "\PictureSource")
End Function