Version, 8 Spalten, Icon variabel

app/DD_PM_WINDREAM/frmAdmin2.vb

@@ -1,6 +1,7 @@
 
 
 Imports System.IO
+Imports System.Threading
 Imports DevExpress.XtraGrid
 Imports DevExpress.XtraPrinting
 Imports DevExpress.XtraTab
@@ -109,6 +110,7 @@ Public Class frmAdmin2
 
     Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged
         RibbonPageGroup3.Enabled = True
+        RibbonPageGroup4.Enabled = False
         Select Case XtraTabControl1.SelectedTabPageIndex
             Case 0
                 RibbonPageGroup1.Enabled = True
@@ -121,6 +123,7 @@ Public Class frmAdmin2
                 RibbonPageGroup2.Enabled = False
                 RibbonPageGroup1.Enabled = False
                 Load_More_Konfig_Grids()
+                RibbonPageGroup4.Enabled = True
         End Select
     End Sub
     Private Sub SET_GRID_DESCRIPTION(pGridView As Views.Grid.GridView, pDT As DataTable)
@@ -133,7 +136,7 @@ Public Class frmAdmin2
         pGridView.ViewCaption = objectCount_Descr
     End Sub
     Private Sub Load_More_Konfig_Grids()
-
+        Me.Cursor = Cursors.WaitCursor
         Try
             Dim oSQL = "SELECT * FROM TBPM_FURTHER_KONFIG_VIEW"
             DT_FURTHER_KONFIG_VIEW = ClassDatabase.Return_Datatable(oSQL, "Monitor-Load_Grid_Data1")
@@ -200,7 +203,7 @@ Public Class frmAdmin2
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Load_More_Konfig_Grids:")
         End Try
-
+        Me.Cursor = Cursors.Default
     End Sub
 
 
@@ -365,4 +368,7 @@ Public Class frmAdmin2
         End Try
     End Sub
 
+    Private Sub BarButtonItem11_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem11.ItemClick
+        Load_More_Konfig_Grids()
+    End Sub
 End Class