codice:
 
        CMDialog1.Filter = "All Files (*.*)|*.*|File di Testo (*.txt)|*.txt|Pagina Html (*.htm)|*.htm|Pagina Html (*.html)|*.html|Pagina Asp (*.asp)|*.asp|File Batch (*.bat)|*.bat"

        CMDialog1.FilterIndex = 2

        CMDialog1.ShowOpen
        Filename = CMDialog1.Filename
        frmEditor.Caption = "CodeWorld Editor - 1.0: " & Filename
        OpenFile (Filename)