Push it baby, push it real

app/DD_PM_WINDREAM/frmMain.vb

@@ -1365,6 +1365,7 @@ Public Class frmMain
 
 
 
+
         Catch ex As Exception
             LOGGER.Error(ex)
             MsgBox("Unexpected error in Load_Profil_from_Grid: " & ex.Message & vbNewLine & ADDITIONAL_TITLE & " will try to reload the overview - Please try again!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
@@ -2831,4 +2832,24 @@ Public Class frmMain
         Catch ex As Exception
         End Try
     End Sub
+
+    Private Sub BarButtonItem8_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
+        Dim oIds As New List(Of Integer)
+
+        For index = 0 To GridViewWFItems.RowCount
+            Dim oRow = GridViewWFItems.GetRow(index)
+
+            If oRow Is Nothing Then
+                Continue For
+            End If
+
+            Dim oProfileId = oRow.row.item("PROFILE_ID")
+
+            If oProfileId = CURRENT_CLICKED_PROFILE_ID Then
+                oIds.Add(oRow.item("DocId"))
+            End If
+        Next
+
+        MsgBox("Ids: " & String.Join(" | ", oIds))
+    End Sub
 End Class