Me.Tastatur.SuspendLayout
For Each ctl As Control In Me.Tastatur.Controls
   If (ctl.Name.StartsWith("lblTaste")) AndAlso (TypeOf ctl Is Label) Then
       Dim lbl As Label = DirectCast(ctl, Label)
       lbl.Text = lbl.Text.ToUpper
    End If
Next ctl
Me.Tastatur.ResumeLayout

Me.SuspendLayout
...
Me.ResumeLayout