Private Sub DGV1_MouseLeave(ByVal Sender As Object, ByVal e As _
  System.EventArgs) Handles DGV1.MouseLeave
 
    Dim cm As CurrencyManager = CType(Me.BindingContext DGV1.DataSource, _
    DGV1.DataMember), CurrencyManager)
    Dim X as Integer
 
    If Me.DGV1.IsCurrentCellDirty = True Then
        Me.btnTagEdit.Select()
        X = Cint(CType(cm.Current, DataRowView((0))
        MsgBox(X)
    End If
 
End Sub

Private Sub DGV1_MouseLeave(ByVal Sender As Object, ByVal e As _
  System.EventArgs) Handles DGV1.MouseLeave
 
    If DGV1.IsCurrentCellDirty = True Then Me.btnTagEdit.Select()
 
End Sub