In Remembrance of Programming

Sub form1_load

End Sub

Private Sub Btncalc_click

Dim text as string

Dim num as integer

Dim digit as integer (9)

If txttype.text = “yes” Then

            txtdisplay.text = “right”

If txttype = “no” Then

            txtdisplay = “wrong”

Else

            Msgbox(“yes or no question, moron!”)

End If

digit = num >1

txtsolve.text = digit  + txtinteger.text

End Sub

Sub btnexit_click

            Me.close( )

End Sub

End Class

-Chris Kania