dim sw as System.io.fileStream
sw = New System.IO.FileStream ("c:\\copy.exe",System.IO.FileMode.CreateNew,System.IO.FileAccess.Write))
Dim sr as System.IO.FileStream
sr = New System.IO.FileStream ("c:\\test2.exe",System.IO.FileMode.Open ,System.IO.FileAccess.Read))
Do while(sr.Read(buff,0,buff.length)>0)
procressBar.value +=1
sw.Write (buff,0,buff.Length)
Loop