Visual Basic

Dim q As Integer = context.myobjects.GroupBy(Function(x) New With {x.Name,x.City,x.Price}).Where(Function(t3) t3.Count > 1).Count

Private sub Fill_Product
context.Products.Where(Function(t2) t2.cl>5).Load
ProductBindingsource.datasource=context.Products.Local.ToBindinglist
End sub

Private Sub ProductBindingSource_CurrentChanged(sender As Object, e As  EventArgs) Handles ProductBindingSource.CurrentChanged

context.Entry(ProductBindingSource.Current).Collection("ProductDetails").Load()
    ProductDetailsBindingsource.Datasource=DirectCast(ProductBindingSource.Current, Product).ProductDetails
End sub

  Private Sub RollBack()
    Dim changedEntries = context.ChangeTracker.Entries().Where(Function(x) x.State <> EntityState.Unchanged).ToList()
    For Each entry In changedEntries

        Select Case entry.State
            Case EntityState.Modified
                entry.CurrentValues.SetValues(entry.OriginalValues)
                entry.State = EntityState.Unchanged
            Case EntityState.Added
                entry.State = EntityState.Detached
            Case EntityState.Deleted
                entry.State = EntityState.Unchanged
        End Select
    Next
End Sub

Dim uImage As Bitmap = New Bitmap(PictureBox1.Size.Width, PictureBox1.Size.Height, 4, Imaging.PixelFormat.Format32bppPArgb, 0)

   Dim Grafik As Graphics = Graphics.FromImage(uImage)

   Grafik.Clear(Color.Black)

   Dim Offset As Integer = 0
   Dim Gain As Integer = 1
   Dim Freq As Integer = 1
   Dim N As Integer = PictureBox1.Size.Width

   Dim D(N - 1) as PointF

    ' Create Data
    '
    For i As Integer = 0 To N - 1
        D(i).X = i
        D(i).Y = Offset + Gain * Math.Cos(i * Freq * Math.PI / 180.0)
    Next

   ' Scale for drawing
   '
   Dim sx As Double = PictureBox1.Size.Width / (N - 1)
   Dim sy As Double = PictureBox1.Size.Height * 0.5

   ' increase gain
   '
   sy=sy*32000

   ' Data to Pixel
   '
   For i As Integer = 0 To N - 1
       D(i).X = D(i).X * sx
       D(i).Y = PictureBox1.Size.Height * 0.5 - D(i).Y * sy
   Next

    ' DrawLines is not correct
    '
    Grafik.DrawLines(New Pen(Color.Blue), D)

   ' DrawLine is correct
   '
    For i As Integer = 1 To N - 1
        Grafik.DrawLine(New Pen(Color.Red), D(i - 1), D(i))
    Next

    PictureBox1.Image = Nothing
    PictureBox1.Image = uImage

    Grafik.Dispose()

Managed Debugging Assistant 'ContextSwitchDeadlock' : 'The CLR has been unable to transition from COM context 0x1b387fb0 to COM context 0x1b387e88 for 60 seconds. The thread that owns the destination context/apartment is most likely either doing a non pumping wait or processing a very long running operation without pumping Windows messages. This situation generally has a negative performance impact and may even lead to the application becoming non responsive or memory usage accumulating continually over time. To avoid this problem, all single threaded apartment (STA) threads should use pumping wait primitives (such as CoWaitForMultipleHandles) and routinely pump messages during long running operations.'