Çok küçük Bir proje Yeni Başlıyanlar için Lazım olur belki

Döviz = TL
TL=Döviz

Çevirisi Yapabiliyorsunuz.



KOD:
Gerekli Objeler : 3 TextBox 3 Label Resimdekigibi yerlestirebilirsiniz.

Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 13 Then Text2 = Fix(Text1 / Text3)
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 13 Then Text1 = Fix(Text2 * Text3) & " TL"
End Sub

Proje Dosyası
http://hotfile.com/dl/69757943/38c9277/KUR.rar.html