Sub reade()
        Dim oFile As New DSOFile.OleDocumentProperties
        oFile.Open("C:\File.mp4")
        MessageBox.Show(oFile.SummaryProperties.Comments)
        oFile.Close()
    End Sub
 
    Sub write()
        Dim oFile As New DSOFile.OleDocumentProperties
        oFile.Open("C:\File.mp4")
        oFile.SummaryProperties.Comments = "No Comment :D"
        oFile.Save()
        oFile.Close()
    End Sub