Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'FOR EACH TXT AS CONTROL IN THE FORM OF CONTROLS 'GET THE COLLECTION OF A CONTROL CONTAIN WITHIN THE CONTROL. For Each txt As Control In Me.Controls 'CHECKING IF THE TYPE OF A CONTROL WAS A TEXTBOX If txt.GetType Is GetType(TextBox) Then 'GET OR SET THE HEIGHT AND WIDTH OF THE TEXTBOX txt.Text = "SIZE:" & txt.Size.ToString End If Next txt End Sub