Evet arkadaşlar bircok kişinin bunu aradığını gordum ve bunun bir programcığını yazmak istedim kodlar aşağıdadır..

Forma 1 adet Inet 1 adet commandbutton 6 adet label ekleyin ve aşağıdaki kodu direkt kopyalıyın..

Not: Doviz Kurlarını www.tcmb.gov.tr adresinden almaktadır
Kod:
Private Sub Command1_Click() Dim strkur As String strkur = Inet1.OpenURL("http://www.tcmb.gov.tr/kurlar/today.html") lblDovizUsd = Trim(Mid(strkur, InStr(strkur, "USD") + 39, 10)) lblDovizEUR = Trim(Mid(strkur, InStr(strkur, "EUR") + 39, 10)) lblDovizUsdsatis = Trim(Mid(strkur, InStr(strkur, "USD") + 55, 10)) lblDovizeursatis = Trim(Mid(strkur, InStr(strkur, "EUR") + 55, 10)) lblDovizgbp = Trim(Mid(strkur, InStr(strkur, "GBP") + 39, 10)) lblDovizgbpsatis = Trim(Mid(strkur, InStr(strkur, "GBP") + 55, 10)) Label1.Caption = "Amerika Doları Alış: " & lblDovizUsd Label2.Caption = "Amerika Doları Satış: " & lblDovizEUR Label3.Caption = "Euro Alış: " & lblDovizUsdsatis Label4.Caption = "Euro Satış: " & lblDovizeursatis Label5.Caption = "İngiliz Sterlini Alış: " & lblDovizgbp Label6.Caption = "İngiliz Sterlini Satış: " & lblDovizgbpsatis End Sub Private Sub Form_Load() Label1.Left = 600 Label2.Left = 600 Label3.Left = 600 Label4.Left = 600 Label5.Left = 600 Label6.Left = 600 Label1.Top = 480 Label2.Top = 864 Label3.Top = 1248 Label4.Top = 1632 Label5.Top = 2016 Label6.Top = 2400 Command1.Top = 3120 Command1.Left = 240 Command1.Caption = "TIKLA" Me.Width = 5200 Me.Height = 4250 End Sub

__________________