[AYMANSALEH1988]

حدد قيمة X في الحالتين
Dim X As Single
For X = 1 To 10 Step 2

Next
Label1.Text = X

-------------------------------------
Dim X As Single
For X = 1 To 10 Step 2

Label1.Text = X
Next