Simple Currency Project

Form Design:

Form = 1

Command Button = 6

Label = 3

Text Box = 2

Properties Set:

Object	Property	Settings
Form1	Name Caption Height Width Back Color Max Button	frmCurrency Simple Currency Project 4245 7665 &H00004000& False
Command1	Caption Height Width Left Top	Dollar 495 1215 3000 2280
Command2	Caption Height Width Left Top	Real 495 1215 3000 1800
Command3	Caption Height Width Left Top	Rope 495 1215 3000 1320
Command4	Caption Height Width Left Top	Pound 495 1215 3000 840
Command5	Caption Height Width Left Top	Clear 375 615 6240 3240
Command6	Caption Height Width Left Top	E&xit 375 615 6840 3240
Label1	Caption Fore Color Back Style Font Size Font Style Height Width Left Top	Amount &H0000C000& 0 - Transparent 10 Bold 375 975 960 1080
Label2	Caption Fore Color Back Style Font Size Font Style Height Width Left Top	Amount &H0000C000& 0 - Transparent 10 Bold 375 855 5760 1080
Label3	Caption Fore Color Back Style Font Size Font Style Height Width Left Top	Amount &H0000C000& 0 - Transparent 10 Bold 375 1095 3000 240
Text1	Text Height Width Left Top	[blank] 495 2655 120 1560
Text2	Text Height Width Left Top	[blank] 495 2895 4440 1560

Code:

Private Sub Command1_Click()

Text2.Text = Val(Text1.Text) * 75

End Sub

Private Sub Command2_Click()

Text2.Text = Val(Text1.Text) * 175

End Sub

Private Sub Command3_Click()

Text2.Text = Val(Text1.Text) * 190

End Sub

Private Sub Command4_Click()

Text2.Text = Val(Text1.Text) * 1.5

End Sub

Private Sub Command5_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub Command6_Click()

y = "Do you want to Exit ?"

yn = MsgBox(y, 4 + 16)

If yn = 6 Then

End

Else

Exit Sub

End If

End Sub