Private Sub Command1_Click() Dim strInt, x As Integer strInt = Val(Text1.Text) For x = 2 To strInt - 1 If strInt Mod x = 0 Then List1.AddItem (x) End If Next List1.AddItem (strInt) End Sub Private Sub Command2_Click() Text1.Text = "" List1.Clear End Sub