Dim str_url As String
Dim sFTPCommand As String  'the command send to ftp server
Dim sFTPSrcFileName As String ' the name of the file that we search in ftp server
Dim sFTPTgtFileName As String 'optional it is for new name when you copy (you dont have to seth this it will copy it as the name of original)
Dim sFTPUser As String ' the username
Dim sFTPPwd As String ' the password
Dim fWait As Boolean
dim sFTPurl as Strin ' the ip or the url of the FTP serve

sFTPUser=txtUsername.Text
sFTPPwd= txtPassword.Text
str_url="ftp://" & sFTPUser & ":" & sFTPPwd & "@" & sFTPurl
sFTPCommand = "GET" 'the command to FTP server
sFTPSrcFileName = "Version.txt" 'it is the file on the server
sFTPTgtFileName = "Ver.txt" ' it is the name of the file when you copy it on your HDD

' send the line to Inet1 to execute it 

Inet1.Execute str_url, sFTPCommand & Space(1) & sFTPSrcFileName & " " & sFTPTgtFileName

'NOW HERE IS THE TRICK YOU MUST WAIT TO BE SHURE IT IS DONE WITH THIS CYCLE HERE
'
  fWait = True
  Do Until fWait = False
		DoEvents
		fWait = Inet1.StillExecuting
  Loop