Pada perulangan Do Until kode akan terus dilakukan hingga suatu keadaan tercukupi (true). Sintaks: Do Until condition statements [condition][Exit Do] statements Loop Keterangan: condition adalah kondisi yang harus tercukupi agar proses loop berhenti. statements adalah aba-aba yang hendak dieksekusi. [ condition ][Exit Do] adalah sintaks untuk keluar dari loop jika menyanggupi kondisi tertentu Contoh penggunaan: UI: Code: Public Class Form1 Private Sub Form1_Load( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase .Load Button1.Text = "Start Loop!" End Sub Private Sub Button1_Click( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim arrNumber() As Integer = 1, 5, 7, 9, 12, 24, 48 Dim iCount As Integer = arrNumber.GetUpperBound(0) + 1 Do Until iCount iCount -= 1 ListBox1.Items.Add(arrNumber(iCount)) Loop End Sub End Class Runtime: Click here if you like this article. Baca juga artikel perihal Perulangan (Looping) lainnya: Struktur Perulangan Do While Struktur Perulangan Do Until Penggunaan Exit Do Struktur Perulangan For Next Struktur Perulangan For Each Penggunaan Continue For Penggunaan Exit For Perulangan Tak Terhingga (Infinite Loops) Sumber http://rani-irsan.blogspot.com