[larbihamri]

استاذ Ahmed_Mansoor

والله انا محير من المرفق الذي ارسلته لي
حيث ان هناك كود و هو كالاتي

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)²

If Label1.Left < Label2.Left) And _² )

Label1.Left + Label1.Width) > (Label2.Left + Label2.Width) And _² )

   Label1.Top > Label2.Top And

  Label1.Top + Label1.Height) < (Label2.Top + Label2.Height) Then)

   Label1.BorderStyle = 1

   Exit Sub

   

End If

الي محيرني اني لو جمعت قيم اللايبل 1 و اللايبل2 تكون النتيجة كالاتي

'left     120    < 3960

'top+width :615 > 4035
'top: 120>960
'top+hight :375<1395
اتمتى ان تكون قد فهمت ما اصبو اليه

(ملاحظة : لقد وضعت هذا الرمز "²"  حتى تكون كتابة الكود صحيحة في الرد فقط و لم اضعها اثناء كتابة الكود في البرنامج)