Şu kodu bir türlü çeviremedim :RpS_cursing:
Kod:
Private strVersiyon As String
Private Sub Command1()
strVersiyon = inet1.OpenURL("http://siteadresi.com/version.php")
label1.Caption = strVersiyon
If label1.Caption <> "Güncel" Then MsgBox "Güncel Sürümü İndiriniz.", vbExclamation, "Uyarı": End
End Sub