27-06-20, 04:29 PM
السلام عليكم اخوتي الأعزاء لقد قمت باختيار صورة اريد جعلها خلفية لــ MdiParint ولكن دون جدوى وهذا الكود المستخدم والصورة لا تظهر ابدا من الرغم اني جعلتها في بيتشر بوكس وتظهر
كود :
Me.BackgroundImage = GetImage2("Loging")
Dim ctl As Control
Dim ctlMDI As MdiClient
For Each ctl In Me.Controls
Try
ctlMDI = CType(ctl, MdiClient)
Catch exc As InvalidCastException
End Try
Next