• Home
 · 
• Miscellaneous
 · 
• A fun joke to play. You enter a number then the form prints out that many times. Unless it is less

A fun joke to play. You enter a number then the form prints out that many times. Unless it is less

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




Rate A fun joke to play. You enter a number then the form prints out that many times. Unless it is less

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' 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