[hassanalhawy]

 
Public Class Form1
  
  Private Sub Button1_Click(ByVal
'كود الأعداد الفردية
  
    Dimi, N As Integer
  
i = Me.TextBox1.Text
N = Me.TextBox1.Text
  
    Me.ListBox1.Items.Clear()
  
    If i Mod 2 = 0 Then
  
i = i + 1
  
    End If
    
    For M = i To N Step 2
  
       Me.ListBox1.Items.Add(M)
    
    Next  
  
  End Sub
  
  Private Sub Button2_Click(ByVal
'كود الأعداد الزوجية

    Dimi, N As Integer
  
i = Me.TextBox1.Text
N = Me.TextBox1.Text
  
    Me.ListBox1.Items.Clear()
  
    If i Mod 2 <> 0 Then
  
i = i + 1
  
    End If
    
    For M = i To N Step 2
  
       Me.ListBox1.Items.Add(M)
    
    Next  
  
  End Sub

End Class