طالب علم2002

الاخ مغروم

حل كان من انتلج الاخ العزيز حارث الله يذكره بالخير

ضع في حدث عند الصفحة الكود التالي

   Me.ScaleMode = 1

   Me.ForeColor = 0

   Me.DrawWidth = 3

Dim ctl As Control

Dim MaxHeight As Long


MaxHeight = 0


For Each ctl In Me

If TypeOf ctl Is TextBox And ctl.Section = 0 Then

   If ctl.Height > MaxHeight Then MaxHeight = ctl.Height

End If

Next


   

For Each ctl In Me

If TypeOf ctl Is TextBox And ctl.Section = 0 Then

   Me.Line (ctl.Left, 0)-(ctl.Left, MaxHeight)

End If

Next

  


Me.Line (Me.Width - 3, 0)-(Me.Width - 3, MaxHeight)

  

Me.Line (0, MaxHeight)-(Me.Width - 3, MaxHeight)

  

اخيك طالب علم2002