Visual Basic

Public Enum _smtpEngine_Status

    STOPPED = 1
    START_PENDING = 2
    STOP_PENDING = 3
    RUNNING = 4
    CONTINUE_PENDING = 5
    PAUSE_PENDING = 6
    PAUSED = 7
    COMPLETE = 8
    EMPTY = 9

End Enum
Public Class smtp_send_engine

    '<a href="http://stackoverflow.com/questions/14888984/start-async-task-without-using-await-in-called-method">http://stackoverflow.com/questions/14888984/start-async-task-without-using-await-in-called-method</a>

    Public Shared engineTask As Task

    Public Shared Function engineStart( _
        ByVal pSend As frmSend,
        ByVal pJobID As Integer,
        ByVal pPageIndex As Integer,
        ByVal pPageSize As Integer) As _smtpEngine_Status

        Dim pValue As _smtpEngine_Status = _smtpEngine_Status.START_PENDING

        'No need for sub to be async but can be async if needed for other reasons (see below)
        'but that doesn't stop the execution in the CallingSub
        'Get the task started... it's not going to wait for the task to be done just sets the task variable
        engineTask = engineRun( _
            pSend,
            pJobID,
            pPageIndex,
            pPageSize
        )

        Return pValue

    End Function
    Public Shared Async Sub engineStatus()

        'Must be async so you can await the result
        Await engineTask

        'Do stuff that requires task to be done

    End Sub
    Private Shared Async Function engineRun( _
        ByVal pSend As frmSend,
        ByVal pJobID As Integer,
        ByVal pPageIndex As Integer,
        ByVal pPageSize As Integer) As Task(Of _smtpEngine_Status)

        'No need for this function to be async since the function has no await
        Dim pValue As _smtpEngine_Status = _smtpEngine_Status.START_PENDING

        Dim responseCount As New crm.ws_sendEngine_subscribersCount_response
        Dim dwXCode As Integer = request_sendEngine_Count.get_Subscriber_Count(responseCount)

        If Not (responseCount.count > 0) Then
            Return _smtpEngine_Status.EMPTY
            Exit Function
        Else
            Await Task.Delay(30000)
            pValue = _smtpEngine_Status.COMPLETE
        End If

        Return pValue

    End Function

End Class

Dim vDependent As DataView = myDataTable.DefaultView
                          vDependent.RowFilter = "EEGRP ='" & item.EEGRP & "' AND EESSN ='" & item.EESSN & "'"

Dim data = myDataTable.AsEnumerable().GroupBy(Function(r) New With {Key .EEGRP = r.Field(Of String)("EEGRP"), Key .EESSN = r.Field(Of String)("EESSN"), _                                                                                          Key .DEDENF = r.Field(Of String)("DEDENF"), Key .DEDENM = r.Field(Of String)("DEDENM"), _
                                                                                          Key .DEDREL = r.Field(Of String)("DEDREL")},
                      Function(key, rows) New With
                      {
                          Key .EEGRP = key.EEGRP,
                          Key .EESSN = key.EESSN,
                          Key .DEDENF = key.DEDENF,
                          Key .DEDENM = key.DEDENM,
                          Key .DEDREL = key.DEDREL,
                              .Dates = rows.Select(Function(r) DateFromStringParts( _
                                                      r.Field(Of String)("DEIBCY"), _
                                                      r.Field(Of String)("DEIBYR"), _
                                                      r.Field(Of String)("DEIBMT"), _
                                                      r.Field(Of String)("DEIBDY"))).OrderByDescending(Function(d) d).Take(3).ToList()}
                      )

                       'Create new table with original table schema
                      Dim result As New DataTable
                      result = myDataTable.Clone()
                      For Each item In data
                          Dim vDependent As DataView = myDataTable.DefaultView
                          vDependent.RowFilter = "EEGRP ='" & item.EEGRP & "' AND EESSN ='" & item.EESSN & "'"
                          ' item.Dates.ElementAtOrDefault(1), item.Dates.ElementAtOrDefault(2))
                          Dim newRow As DataRow = result.NewRow()
                          newRow("EEGRP") = vDependent(0)("EEGRP")...

.Dates = rows.Select(Function(r) r.Field(Of DateTime?)("DEIBMT") & "/" & ("DEIBDY") & "/" & ("DEIBCY") & ("DEIBYR"))

Dim data = myDataTable.AsEnumerable().GroupBy(Function(r) New With {Key .EEGRP = r.Field(Of String)("EEGRP"), Key .EESSN = r.Field(Of String)("EESSN")},
                      Function(key, rows) New With
                      {
                          Key .EEGRP = key.EEGRP,
                          Key .EESSN = key.EESSN,
                                .Dates = rows.Select(Function(r) _
                                                         r.Field(Of String)("DEIBMT")) _
                                .OrderByDescending(Function(d) d).Take(3).ToList()}
                      )
                      ' '  .Dates = rows.Select(Function(r) r.Field(Of DateTime?)("DEIBMT") & "/" & ("DEIBDY") & "/" & ("DEIBCY") & ("DEIBYR")) _

If ListView1.Items.Count > 0 Then
  For Each controls As Control In Panel1.Controls 'My buttons grouped in Panel1 and Panel2
    If TypeOf controls Is Button Then
      DirectCast(controls, Button).Visible = False
    End If
  Next
End If