[أبو عمر]

الاجابة تونس

----------
اضف Module
واكتب فيه الدالة وغيره اللي في التنصيص حسب شروطك
Public Function mybgimage(ByVal frm As Object, ByVal usr As String)
If usr = "xxx" Then
frm.Picture = LoadPicture("xxxx")
Else
frm.Picture = LoadPicture("c:\0.jpg")
End If
End Function
'في اي فورم تكتب في الحدث Load'

Private Sub Form_Load()
Call mybgimage(Me, "اي بتاع")
End Sub
ويا خوفي تطلع الاجابة البطيخة