View Single Post
02-07-2009   #24 (permalink)
Thuper
ggFTW Moogler
Thuper's Avatar
 
Join Date: Jun 2008
Location: Under the sea, Over the ocean :D
Posts: 176
iTrader: (2)
Thuper is on a distinguished road
Send a message via MSN to Thuper Send a message via Yahoo to Thuper
IGN: XsuperhipsterX (Chips)
Class: Raccoon -- Charm to_gambler
Level: 15x
Guild: Symphony
Default

Private Sub cmdAfghan_Click(Index As Integer)
Dim Peso As Currency
Peso = Val(txtPeso.Text)
Output = Peso * 1.00074
txtOut.Text = Output
End Sub

Private Sub cmdFranc_Click(Index As Integer)
Dim Peso As Currency
Peso = Val(txtPeso.Text)
Output = Peso * 0.0245395
txtOut.Text = Output

End Sub

Private Sub cmdDollar_Click(Index As Integer)
Dim Peso As Currency
Peso = Val(txtPeso.Text)
Output = Peso * 0.0210795
txtOut.Text = Output

End Sub

Private Sub cmdEuro_Click(Index As Integer)
Dim Peso As Currency
Peso = Val(txtPeso.Text)
Output = Peso * 0.0163762
txtOut.Text = Output

End Sub

Private Sub cmdHK_Click(Index As Integer)
Dim Peso As Currency
Peso = Val(txtPeso.Text)
Output = Peso * 0.163761
txtOut.Text = Output
End Sub

Private Sub cmdOunce_Click(Index As Integer)
Dim Peso As Currency
Peso = Val(txtPeso.Text)
Output = Peso * 0.0000230386
txtOut.Text = Output
End Sub

Private Sub cmdPounds_Click(Index As Integer)
Dim Peso As Currency
Peso = Val(txtPeso.Text)
Output = Peso * 0.0145237
txtOut.Text = Output
End Sub


Private Sub cmdRupees_Click(Index As
Integer)
Dim Peso As Currency
Peso = Val(txtPeso.Text)
Output = Peso * 1.0277
txtOut.Text = Output
End Sub
Feb. 6 2009




Private Sub cmdRupi_Click(Index As Integer)
Dim Peso As Currency
Peso = Val(txtPeso.Text)
Output = Peso * 246.685
txtOut.Text = Output
End Sub

Private Sub cmdSchill_Click(Index As Integer)
Dim Peso As Currency
Peso = Val(txtPeso.Text)
Output = Peso * 0.226356
txtOut.Text = Output
End Sub

Private Sub cmdYen_Click(Index As Integer)
Dim Peso As Currency
Peso = Val(txtPeso.Text)
Output = Peso * 1.89117
txtOut.Text = Output
End Sub

Private Sub cmdYuan_Click(Index As Integer)
Dim Peso As Currency
Peso = Val(txtPeso.Text)
Output = Peso * 0.14411
txtOut.Text = Output
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
txtPeso.Text = ""
txtOut.Text = ""
End Sub





;-;
__________________
-Under Construction-
While waiting, have a [ c o o k i e ]