Public Class ProcessManagerOverview
    Public Delegate Sub RowDoubleClickedDelegate(RowView As DataRowView)
    Public Event RowDoubleClicked As RowDoubleClickedDelegate

    Public Property DataSource As DataTable
        Get
            Return GridMain.DataSource
        End Get
        Set(value As DataTable)
            GridMain.DataSource = value
        End Set
    End Property

    Private Sub ViewMain_RowClick(sender As Object, e As DevExpress.XtraGrid.Views.Grid.RowClickEventArgs) Handles ViewMain.RowClick
        If e.Clicks = 2 Then
            Dim oRow As DataRowView = ViewMain.GetRow(e.RowHandle)
            RaiseEvent RowDoubleClicked(oRow)
        End If
    End Sub
End Class