Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim
halaman As Byte
halaman = 10
While
halaman >= 1
ComboBox1.Items.Add(halaman)
halaman = halaman - 1
End While
End Sub
End Class