


Dim dialog As New OpenFileDialog
dialog.Filter = ".NET Assembly Files (*.dll, *.exe)|*.dll *.exe|All Files|*.*"
If (dialog.ShowDialog = DialogResult.OK) Then
Dim stream As New FileStream(dialog.FileName, FileMode.Open, FileAccess.Write)
stream.Seek(&HF4, SeekOrigin.Begin)
stream.WriteByte(11)
stream.Flush
stream.Close
End If