Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
If e.ColumnIndex = 0 Then
Dim x_i As Integer = e.ColumnIndex
Dim y_i As Integer = e.RowIndex
Dim margenX As Integer = 0
Dim margenY As Integer = 0
Dim margenXdataGridView As Integer = DataGridView1.Left
Dim margenYdataGridView As Integer = DataGridView1.Top
For I As Integer = 0 To e.ColumnIndex + 1
margenX += DataGridView1.CurrentCell.Size.Width
Next
For I As Integer = 0 To e.RowIndex + 1
margenY += DataGridView1.CurrentCell.Size.Height
Next
Dim left As Integer = 0
Dim top As Integer = 0
left = margenXdataGridView + margenX
top = margenYdataGridView + margenY
Me.Mostrar_Datos.Visible = True
Me.Mostrar_Datos.Location = New Point(left - 58, top)
End If
End Sub