version = App.Major
If kontrol > version Then

Dim kontrol As Integer
Dim version As Integer
Dim cevap
Dim yeni_yukle As Boolean

Private Sub Form_Load()

kontrol = Inet1.OpenURL("http://www.xeon.com/kontrol.txt"): DoEvents
version = App.Major
If kontrol > version Then
cevap = MsgBox("Yeni version var,Yuklensin mi ?", vbYesNo)

If cevap = vbYes Then
MsgBox ("Programi Kapatip Tekrar Acin")
yeni_yukle = True
Else
MsgBox ("Yeni version Yuklenmeyecektir.")
End If

End If
End Sub

Private Sub Form_Terminate()
If yeni_yukle = True Then
Dim fileBytes() As Byte
Dim fileNum As Integer

On Error GoTo DownloadError
DoEvents

fileBytes() = Inet1.OpenURL("http://www.xeon.gen.tr/xeon.exe", icByteArray): DoEvents

fileNum = FreeFile


Open App.Path & "\yeni.exe" For Binary Access Write As #fileNum
Put #fileNum, , fileBytes()
Close #fileNum
MsgBox "Yeni Version Yuklendi"
DownloadError:
MsgBox Err.Description
End If
End Sub


Direk Kodlar. resim çekmeye gerek yok hata verıyor tıkladıgımda şu satır oda app.major en usttekı.