[hamada salah90]

(20-09-15, 12:46 AM)أبو عمر كتب : الاجابة تونس

----------
اضف 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
ويا خوفي تطلع الاجابة البطيخة

 والله كنت بختبرك
انا عارف انك عارف الإجابة "تونس" طبعا

هههههههههههههههههههههههههههههههههههههههههههههههههههههه