Private Sub Command1_Click
Dim i As Integer
Dim c As Integer
i = InputBox("enter number ?")
For c = 1 To i
If i Mod c = 0 Then
Print c
End If
Next c
End Sub

Private Sub Command2_Click()
End
End Sub

اين كاملشه...

Dim i As Integer
Dim c As Integer
i = InputBox("enter number ?")
For c = 1 To i
If i Mod c = 0 Then
Print c
End If
Next c
End Sub

Private Sub Command2_Click()
End
End Sub

همانطور كه مشاهده مي كنيد دو كامند ايجاد كرديم يكي براي ورود به پنجره ي وارد كردن عدد و ديگري براي خروج از برنامه ....همين..ساده...تمام