Untitled

Private Sub Form_Load()
    tmrUpd.Enabled = True
    
    Call SHCreateThread(AddressOf GetVerInfo, ByVal 0&, CTF_INSIST, ByVal 0&)
    
    MsgBox VerInfo
End Sub

Public Function GetVerInfo()
On Error GoTo ErrHandl
    Dim hOpen As Long, hFile As Long, hLong As Long, hURL As Long
    Dim sBuffer As String, Ret As Long
    
    sBuffer = Space(5)
    hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
    hFile = InternetOpenUrl(hOpen, sURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
    
    Call InternetReadFile(hFile, sBuffer, 5, Ret)
    Call InternetCloseHandle(hFile)
    Call InternetCloseHandle(hOpen)
    
    VerInfo = sBuffer
    Exit Function
ErrHandl:
GetVerInfo = False
End Function