تحويل كود إلى وحدة نمطية عامة

السلام عليكم أساتذتى الأفاضل .. استخدم عدة أكواد أو دوال مرات عديدة سواء فى تقرير أو استعلام مثلا .. الكود التالى وقد أخذته وتعلمته من المنتدى .. وهو خاص بضبط اتساع الحقول طولاً:

 Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer)
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)
End Sub

ـ ما هى فكرة تحويل الكود لجعله كوداً عاماً فى وحدة نمطية؟ .. وهل يمكن التطبيق على الكود الموضح كمثال كى يمكن أن أشير إليه فى أكثر من تقرير..

Cha.zip