[قناص المدينة]

Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
  ' تحقق مما إذا كانت الخلية الثانية (العمود الثاني) قد تم تعبئتها
    If e.ColumnIndex = 1 Then ' العمود الثاني (العمود الأول هو 0)
        Dim cellValue As String = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString()

        ' تحقق مما إذا كانت الخلية غير فارغة
        If Not String.IsNullOrWhiteSpace(cellValue) Then
            ' الانتقال إلى الصف التالي
            If e.RowIndex < DataGridView1.Rows.Count - 1 Then
                DataGridView1.CurrentCell = DataGridView1.Rows(e.RowIndex + 1).Cells(0) ' الانتقال إلى أول خلية في الصف التالي
            End If
       End If
   End If
End Sub