Yeni Anggraini: ComboBox

ComboBox

Public Class Form3

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim halaman As Byte

For halaman = 1 To 10

ComboBox1.Items.Add(halaman)

End Sub

End Class

Public Class Form4

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim halaman As Byte

halaman = 1

While halaman <= 10

ComboBox1.Items.Add(halaman)

halaman = halaman + 1

End While

End Sub

End Class

Posted on 10.56 by yenirockerz and filed under | 0 Comments »