RSA E770 0.6.8.4

Dim fs as System.IO.FileStream 'Dichiaro il metodo che ci servirà per scrivere
       fs = File.OpenWrite(dlg.FileName) 'Apro il file da patchare
       fs.Seek(0, SeekOrigin.Current) 'Mi posiziono all'offset 0
       fs.WriteByte(16) 'Scrivo 16, che convertito in esadecimale è 10
       fs.WriteByte(0) 'Scrivo 0, che convertito in esadecimale è 0
       fs.WriteByte(59) 'Scrivo 59, che convertito in esadecimale è 3B
       fs.WriteByte(140) 'Scrivo 140, che convertito in esadecimale è 8C
       fs.Close() 'Chiudo il filestream

If RadioButton2.Checked Then
           fs.WriteByte(16)
           fs.WriteByte(0)
           fs.WriteByte(0)
           fs.WriteByte(59)
           fs.WriteByte(140)
           fs.Close()
       End If
       If RadioButton1.Checked Then
           fs.WriteByte(16)
           fs.WriteByte(0)
           fs.WriteByte(0)
           fs.WriteByte(59)
           fs.WriteByte(60)
       End If
       If RadioButton3.Checked Then
           fs.WriteByte(16)
           fs.WriteByte(0)
           fs.WriteByte(0)
           fs.WriteByte(59)
           fs.WriteByte(172)

       End If

Dim fs as System.IO.FileStream
      fs = File.OpenWrite(dlg.FileName)
      fs.Seek(0, SeekOrigin.Current)
      If RadioButton2.Checked = True Then
          fs.WriteByte(16)
          fs.WriteByte(0)
          fs.WriteByte(59)
          fs.WriteByte(140)
      ElseIf RadioButton1.Checked = True Then
          fs.WriteByte(16)
          fs.WriteByte(0)
          fs.WriteByte(59)
          fs.WriteByte(60)
      ElseIf RadioButton3.Checked = True Then
          fs.WriteByte(16)
          fs.WriteByte(0)
          fs.WriteByte(59)
          fs.WriteByte(172)
      Else
          MsgBox("Non è stata selezionata nessuna opzione")
      End If
      fs.Close()