coding_fornext_visual Basic

Dim n As Integer

Private Sub Command1_Click()

n = Text1.Text

List1.Clear

For i = 1 To n

List1.AddItem "Angka" & i

Next i

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Text1.Text = ""

End Sub