by Sean Dougan (2 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 16th January 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
A fun joke to play. You enter a number then the form prints out that many times. Unless it is less then 20 then it adds 20 to the number then
API Declarations
Private Sub Form_Terminate()
cancle = 1
End Sub
' a text box called txtprinter
' and a button called cmdprint
' and call your form frmp
' thank you and have fun
Private Sub cmdprint_click()
Dim p As Integer
p = txtprinter
If p <= 20 Then
p = (p + 20) * 2
For x = 1 To p
frmp.PrintForm
Next
ElseIf p > 20 Then
For x = 1 To p
frmp.PrintForm
Next
End Sub
No comments have been posted about A fun joke to play. You enter a number then the form prints out that many times. Unless it is less . Why not be the first to post a comment about A fun joke to play. You enter a number then the form prints out that many times. Unless it is less .