Hi everyone!
I can't understand what's wrong with this code..
My problem is that the MsgBox with "New update is available!" never show up...why!?!Code:Private Sub Form_Load() Dim latest_version As String Dim this_version As String latest_version = Inet1.OpenURL("http://manu6.manufrog.com/~intethin/eva/version.txt") this_version = "001" MsgBox latest_version MsgBox this_version If latest_version <> this_version Then MsgBox "New update is available!" End If End Sub![]()





Reply With Quote