Sub SchriftanpassungenTextBoxen(Page As Form)
        Try
            For Each Contr As Control In Page.Controls
                If TypeOf Contr Is TextBox Then
                    Schriftanpassung(Contr)
                End If
            Next Contr
        Catch ex As Exception
            Fehler....
        End Try
    End Sub

mein aktuelles .net-Projekt:
http://www.fiman.de
freue mich über Test-Informationen.

Screenshots gibt es hier: http://www.fiman.de

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        Me.MachDingsda(Me)
    End Sub
 
    Private Sub MachDingsda(container As Control)
        For Each ctrl As Control In container.Controls
            If TypeOf ctrl Is TextBox Then Me.MachWasAnderes(ctrl)
            If ctrl.HasChildren Then Me.MachDingsda(ctrl)
        Next
    End Sub

mein aktuelles .net-Projekt:
http://www.fiman.de
freue mich über Test-Informationen.

Screenshots gibt es hier: http://www.fiman.de

Public Class MyTextBox
   Inherits TextBox
 
   Public Sub New()
      MyBase.New()
 
      Me.Font = New Font("Verdana", 12)
      Me.ForeColor = Color.Blue
      Me.BackColor = Color.Gainsboro
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control

mein aktuelles .net-Projekt:
http://www.fiman.de
freue mich über Test-Informationen.

Screenshots gibt es hier: http://www.fiman.de