FlatStyle Standard

Public Shared Sub Main()
 
    ' XP - Stile verwenden
    Application.EnableVisualStyles()
 
    ' Hauptfenster instanziieren
    Dim f As Form = New MainWindow
 
    ' FlatStyle = System für alle Steuerelemente, die das unterstützen
    SetSystemStyle(f)
 
    ' Start der Nachrichtenschleife
    Application.Run(f)
 
  End Sub
 
  Public Shared Sub SetSystemStyle(ByVal ctrl As Control)
 
    ' Alle Steuerelemente dieses Containers bearbeiten
    For Each c As Control In ctrl.Controls
 
      ' PropertyInfo - Objekt abrufen, sofern vorhanden
      Dim pi As System.Reflection.PropertyInfo
      pi = c.GetType().GetProperty("FlatStyle")
 
      ' Wenn vorhanden, dann FlatStyle auf System setzen
      If Not pi Is Nothing Then pi.SetValue(c, _
        System.Windows.Forms.FlatStyle.System, Nothing)
 
      ' Wenn das Steuerelement selbst andere Steuerelemente 
      ' beinhaltet, auch diese bearbeiten
      If c.Controls.Count > 0 Then SetSystemStyle(c)
    Next
 
  End Sub