btw, I also made some major changes to the auto updater.
I found a lot of stuff i messed up on :D Here is some stuff i changed
If InStr(1, buffer, "/3/") Then
Else
MsgBox "Please Download new version", vbCritical, "New Version"
Label1.Caption = "Please download new version!"
Me.Caption = "New Version Available"
Private Sub Command2_Click()
buffer = URLDownloadToFile(0, "LINK REMOVED", _
"c:\Project1.exe", 0, 0)
End
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _
szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
And some other stuff.