Increase Height of Textboxes in a Form: Need a Function to Loop through Fields (1 Viewer)

PraizesLiberato said:

Private Sub RelationshipHistoryArt_DblClick(Cancel As Integer)
If counter = 0 Then
RelationshipHistoryArt.Height = RelationshipHistoryArt.Height * 2
DateofArt.Height = DateofArt.Height * 2
Me.Detail.Height = Me.Detail.Height * 2
counter = counter + 1
ElseIf counter = 1 Then
RelationshipHistoryArt.Height = RelationshipHistoryArt.Height * 1.5
DateofArt.Height = DateofArt.Height * 1.5
Me.Detail.Height = Me.Detail.Height * 1.5
counter = counter + 1
ElseIf counter = 2 Then
RelationshipHistoryArt.Height = RelationshipHistoryArt.Height * 1.5
DateofArt.Height = DateofArt.Height * 1.5
Me.Detail.Height = Me.Detail.Height * 1.5
counter = 3
Else
RelationshipHistoryArt.Height = RelationshipHistoryArt.Height / 4.5
DateofArt.Height = DateofArt.Height / 4.5
Me.Detail.Height = Me.Detail.Height / 9
counter = 0
End If
End Sub

I need to turn this into a function that can make my input textboxes in my continuous form to resize without Typing in the name of the Textboxes each time.

Or Something that searches for a control with the Keyword input and Loops through till all the Key worded names are expanded.

Click to expand...