Private Sub DataGridView1_MouseWheel(ByVal sender As Object, _
     ByVal e As System.Windows.Forms.MouseEventArgs) _
     Handles DataGridView1.MouseWheel
     With DataGridView1
       If .IsCurrentCellInEditMode Then bs.EndEdit()
     End With
End Sub