程序代码：

    Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        If e.ColumnIndex = -1 Or e.RowIndex = -1 Then Exit Sub
        Dim a As New Button
        Dim GetRect As New Rectangle
        GetRect = DataGridView1.GetCellDisplayRectangle(e.ColumnIndex, e.RowIndex, True)
        Me.DataGridView1.Controls.Add(a)
        a.Text = "修改"
        a.SetBounds(GetRect.Left + GetRect.Width * 2 / 3, GetRect.Top, GetRect.Width / 3, GetRect.Height)
        a.Show()
    End Sub