'Faça o seguinte, adicione um modulo (ou fique a vontade para fazer de outra maneira) e adiciona este código:
Private Declare Function SystemParametersInfo Lib _
"User32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As _
Long, ByVal lpvParam As String, ByVal _
fuWinIni As Long) As Long
Public Const SPIF_UPDATEINIFILE As Long = &H1
Public Const SPI_SETDESKWALLPAPER As Long = 20
Public Const SPIF_SENDWININICHANGE As Long = &H2
Public Sub SetWallpaper(ByVal sArquivo As String)
Dim RT As Long
RT = SystemParametersInfo(SPI_SETDESKWALLPAPER, _
0&, sArquivo, SPIF_UPDATEINIFILE Or _
SPIF_SENDWININICHANGE)
End Sub
' No form adiciona um botão e chama a função:
Call SetWallpaper("endereçoda foto")
'exemplo :
'Call SetWallpaper("C:foto.bmp")
Espero que tenha ficado claro, qualquer duvida é só postar..
No seu caso, como você tá aplicando a um determinado usuário, pode usar banco de dados(endereço das fotos), e um sistema sisples de login. Pressuponho que vc deve saber fazer isso, mas qualquer coisa, estou a disposição!!
Abração,
Até mais!!!