Perulangan (Looping)

Private Sub Command1_Click()
  For i = 1 To 10
      Picture1.Print i;
  Next i
End Sub
'-----------------


Private Sub Command2_Click()
  Do i = i + 1
      Picture2.Print i;
  Loop Until i = 10
End Sub
'-------------------


Private Sub Command3_Click()
  While i < 10
      i = i + 1
      Picture3.Print i;
Wend
End Sub
'---------------------


Private Sub Command4_Click()
   Do While i < 10
      i = i + 1
      Picture4.Print i;
    Loop
End Sub
'------------------------


Private Sub Command5_Click()
   Do i = i + 1
      Picture5.Print i;
      If i = 10 Then Exit Do
   Loop
End Sub

DOWNLOAD SAMPEL