Public Class Cls_GhostDrag
    Inherits Form

    Private mouseOffset As Point
    Private IsMouseDown As Boolean
    'Private Check As Boolean = False


    Public Sub New()
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Me.BackgroundImageLayout = ImageLayout.None
        Me.ShowInTaskbar = False
        Me.TopMost = True
        Me.StartPosition = FormStartPosition.Manual
        Me.MinimumSize = New Size(10, 10)
        IsMouseDown = False
        Me.AllowDrop = True

    End Sub

    Private Function CreateScreenShotFromForm(ByVal rct As Rectangle, ByVal Par As Form) As System.Drawing.Bitmap
        Dim g As Graphics = Par.CreateGraphics()
        Try
            Dim hBitmap As New Bitmap(rct.Width, rct.Height, g)
            Dim hGraphics As Graphics = Graphics.FromImage(hBitmap)
            hGraphics.CopyFromScreen(Par.Location.X + rct.Left, Par.Location.Y + rct.Top, 0, 0, New Size(rct.Width, rct.Height))
            Return hBitmap
        Catch
            If (Not g Is Nothing) Then g.Dispose()
        Finally
            If (Not g Is Nothing) Then g.Dispose()
        End Try
        Return Nothing
    End Function

    Public Sub ShowGhost(ByVal grid As Xceed.Grid.GridControl, ByVal frm As Form, ByVal pnt As Point)

        Dim rect As Rectangle = New Rectangle( _
                          grid.Left + grid.CurrentRow.ClientRectangleToGrid(grid.CurrentRow.ClientRectangle).Left, _
                          grid.Top + grid.CurrentRow.ClientRectangleToGrid(grid.CurrentRow.ClientRectangle).Top, _
                          grid.CurrentRow.ClientRectangle.Width, _
                          grid.CurrentRow.ClientRectangle.Height)
        Dim bitmap As Bitmap = CreateScreenShotFromForm(rect, frm)
        mouseOffset = pnt
        Me.BackgroundImage = bitmap
        Me.Size = New Size(rect.Width, rect.Height)
        Me.Location = New Point(frm.Left + rect.Left, frm.Top + rect.Top)
        IsMouseDown = True
        Me.Opacity = 0.7
        Me.Show()
        Me.BringToFront()
        Me.Focus()

    End Sub

    Private Sub Cls_GhostDrag_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragOver
        'Because Form_MouseMove not rises when draging on it
        If IsMouseDown Then
            Me.Location = New Point(Control.MousePosition.X - mouseOffset.X, Control.MousePosition.Y - mouseOffset.Y)
        End If
    End Sub

    Private Sub Cls_GhostDrag_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        ' thsi code snippet is not working ( needs Cls_GhostDrag_DragDrop event )
        If e.Button = MouseButtons.Left Then
            IsMouseDown = False
            Me.Dispose()
        End If
    End Sub

    Private Sub InitializeComponent()
        Me.SuspendLayout()
        '
        'Cls_GhostDrag
        '
        Me.ClientSize = New System.Drawing.Size(649, 20)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.Name = "Cls_GhostDrag"
        Me.Opacity = 0.7
        Me.Text = "Row"
        Me.ResumeLayout(False)

    End Sub
End Class