Private Sub DGV1_CellMouseLeave(ByVal Sender As Object, ByVal e As _
  DataGridViewCellEventArgs) Handles DGV1.CellMouseLeave
 
    Dim cm As CurrencyManager = CType(Me.BindingContext(DGV1.DataSource, _
    DGV1.DataMember), CurrencyManager)
    Dim mCel As DataGridViewCell = Me.DGV1.CurrentCell, X as Integer
 
    If DGV1.IsCurrentCellDirty = True Then X = CInt(CType(cm.current, _ 
    DataRowView)(0))
    MsgBox(X)
 
End Sub