penggunaan fungsi loop vb

fungsi loop adalah perintah pengulangan suatu peristiwa yang akan di ulang berkali - kali 

skripnya liat ndiri'

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 

mau download program aslinya,,. klik aja link ini