[Resim: http://i51.tinypic.com/nv73hf.jpg]

Gerekli Malzemeler:
1 Adet Timer
2 Adet Textbox
1 Adet Label
1 Adet Command Button

[vb]Private Sub Command1_Click()
Dim strkur
strkur = Inet1.OpenURL("http://www.tcmb.gov.tr/kurlar/today.html") 'TCMB Sitesine bağlanır.
Text1.Text = Mid(strkur, InStr(strkur, "USD") + 70, 7) 'Alış Fiyatını texte yazdırır
Text2.Text = Mid(strkur, InStr(strkur, "USD") + 81, 9) 'Satış Fiyatını texte yazdırır
Label4.Caption = "30"
End Sub

Private Sub Form