input mp4 and the output mp4

See more:

VB

how can i make the mp4 video output as mp4 video
i want the mp4 is also mp4 m when implement the code , the output video is not playing

Private Sub Command2_Click()
    ProgressBar1.Visible = True
    ProgressBar1.Min = 0
    
    Open CommonDialog1.FileName For Binary Access Read As #1
    ProgressBar1.Max = LOF(1)
    
    ext = Right$(CommonDialog1.FileName, 3)
    newfile = "new1." + ext
    Open newfile For Binary Access Write As #2
    
   For i = 1 To LOF(1)
        Get #1, , b
        If i = 200 Then
              Put #2, , b Xor 12
        Else
            Put #2, , b
        
        End If
        ProgressBar1.Value = i
      
      Next
        WindowsMediaPlayer2.URL = newfile
    Close
    ProgressBar1.Visible = False

End Sub

http://im49.gulfup.com/DYxjNQ.png[^]