I Love You THIS Much...

Private Sub emoLove.True (… Handles emoLove.True

Dim amountILove, amountYouLove As Integer

Dim amountMyHappiness, amountYourHappiness As Double

amountILove =  CDbl(txtILove.Text)

amountYouLove =  CDbl(txtYouLove.Text)

If (amountYouLove > 10) Then

                amountMyHappiness = amountYouLove * 10

Else

                If (amountYouLove >= 3) Then

                                amountMyHappiness = amountYouLove * 5

                Else

                                amountMyHappiness = amountYouLove * 2

                End If

End If

If (amountMyHappiness > 60.00) Then

                amountYouHappiness = amountMyHappiness + (amountILove * 10)

Else

                If (amountMyHappiness >= 30.00) Then

                                amountYouHappiness =  amountMyHappiness + (amountILove * 5)

                Else

                                amountYouHappiness = amountMyHappiness + amountILove

                End If

End If

txtYouHappiness.Text = CStr(amountYouHappiness)

txtMyHHappiness.Text = CStr(amountMyHappiness)

End Sub

Reviews

[Wolfwind]

That's awesome! Amazing and original way to express love! Fantastic ink!