first of all include Imports System**** on your source code.Dim ofd As New OpenFileDialog
ofd.Filter = "Exe File|*.exe"
ofd.ShowDialog()
TxtFileName.Text = ofd.FileName
Dim sfd As New SaveFileDialog
sfd.Filter = "Exe Files|*.exe"
sfd.ShowDialog()
Dim filesize As Double = Val(NumericUpDown2.Value)
IO.File.Copy(TxtFileName.Text, sfd.FileName)
If rbtnMegaByte.Checked Then
filesize = filesize * 1048576
End If
Dim filetopump = IO.File.OpenWrite(sfd.FileName)
Dim size = filetopump.Seek(0, IO.SeekOrigin.End)
While size < filesize
filetopump.WriteByte(0)
size += 1
End While
filetopump.Close()
Interaction.MsgBox("File Pumped!", MsgBoxStyle.Information)
