Private Sub Command1_Click()
  Dim keinePrim As Boolean
  Dim m As Integer
  Dim n As Integer
  Dim t As Integer
  Dim iMax As Integer
  Dim iCur As Integer
 
  <font color=green>' die ersten 10 Primzahlen ermitteln</font>
  iMax = 10: iCur = 0
 
  n = 1
  While iCur < iMax
    keinePrim = False
 
    n = n + 2
    m = Sqr(n)
    <font color=green>' Testen ob die Zahl einen Teiler hat.</font>
    For t = 3 To m Step 2
      If n Mod t = 0 Then
        <font color=green>' Zahl hat einen Teiler, also keine Primzahl</font>
        keinePrim = True
        Exit For
      End If
    Next t
    m = n + 1
 
    If Not keinePrim Then
      iCur = iCur + 1
      List1.AddItem CStr(n)
    End If
  Wend
End Sub