Giúp em tạo cái nút Button [Cap Nhat] này với

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
Private Declare Function DeleteUrlCacheEntry Lib "Wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
Private Const S_OK As Long = &H0
Private Const BINDF_GETNEWESTVERSION As Long = &H10


.....


Dim lngFile As Long

Dim strSourceURL As String
3.
Dim strLocalFile As String
4.
Dim strUpdateInformation() As String

Dim strMessage As String
strSourceURL = "http://www.yourlinkhere.com/NameOfDownloadFile.zip"

strLocalFile = App.Path & "\NameOfDownloadFile.zip"

Call DeleteUrlCacheEntry(strSourceURL) 'In case you had a cached copy of file, this deletes the cached file

If URLDownloadToFile(0&, strSourceURL, strLocalFile, BINDF_GETNEWESTVERSION, 0&) = S_OK Then

'File was downloaded correctlty

Else
'There was an error
End If