Merhaba aşağıdaki gibi deneyebiilirsiniz.
Aşağıdaki adrese gidip sistem profil resmi dosya ismini alınız ve aşağıdaki koda uyarlayınız.
Kırmızı olan kısımlar sizin bilgilerinize göre değişmektedir.
Foto_Adresi = "C:\Users\"kullanıcı adınız"\AppData\Roaming\Microsoft\Windows\AccountPictures\"
Me.Image1.Picture = LoadPicture(Foto_Adresi & "Profile.JPG")