#End Region 
#Region "Aktualisierungssupport "
	Private Shared m_vb6FormDefInstance As frmAppBar
	Private Shared m_InitializingDefInstance As Boolean
	Public Shared Property DefInstance() As frmAppBar
		Get
			If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed _
  Then
				m_InitializingDefInstance = True
				m_vb6FormDefInstance = New frmAppBar()
				m_InitializingDefInstance = False
			End If
			DefInstance = m_vb6FormDefInstance
		End Get
		Set
			m_vb6FormDefInstance = Value
		End Set
	End Property
#End Region
#Region "XP Styles verwenden"
    Public Shared Sub Main()
 
        ' XP - Stile verwenden
        Application.EnableVisualStyles()
 
        ' Hauptfenster instanziieren
        Dim f As Form = New frmAppBar
 
        ' 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
#End Region
    Private Sub cmdExit_Click(ByVal eventSender As System.Object, ByVal _
      eventArgs As System.EventArgs) Handles cmdExit.Click
        UnloadAppBar()
        Me.Close()
        End
    End Sub
 
    Private Sub frmAppBar_Load(ByVal eventSender As System.Object, ByVal _
      eventArgs As System.EventArgs) Handles MyBase.Load
        Main_Renamed()
    End Sub
 
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            frmAppBar.ActiveForm.TopMost = True
        Else
            frmAppBar.ActiveForm.TopMost = True
        End If
    End Sub
End Class

If it was hard to code, it should be hard to read too.