Public GridtoShow As DataGridView
 
 Private Sub timCopy_Tick(sender As Object, e As EventArgs) Handles timCopy.Tick
 
        If RTBtoShow IsNot Nothing Then
            ShowRichText()
        ElseIf GridtoShow IsNot Nothing Then
            ShowGrid()
        Else
            ShowScreen()
        End If
 End Sub

  Private Sub ShowGrid()
 
        Dim sz As Size = GetAreaSize()
 
        Dim sp As Point
        With GridtoShow
            Dim r As Rectangle = 
            .GetCellDisplayRectangle(.CurrentCell.ColumnIndex, _
              .CurrentCell.RowIndex, True)
 
            sp = .PointToScreen(r.Location)
        End With
 
 
        Dim ct As Integer = Math.Max(0, sp.Y - sz.Height \ 2)
        Dim cl As Integer = Math.Max(0, sp.X - sz.Width \ 2)
 
        SetBitmap(New Point(cl, ct), sz)
 
    End Sub