Create new VB Windows Project

Then access dMC with:

        Dim dMC
        dMC = CreateObject("dMCScripting.Converter")


        ' Get list of compression codecs
        Dim i
        For i = 0 To 10000
            Dim Codec As String
            Codec = dMC.GetCompressions(i)
            If Codec = "" Then Exit For
            MessageBox.Show(Codec)
        Next


        ' Do one conversion
        dMC.Convert("z:\abc.ape", "z:\new file.mp3", "mp3 (Lame)", "-b=128", "")


	' Read All IDTags
        Dim i
        For i = 0 To 10000
            Dim Element As String, Value As String
            Element = ""
            Value = ""
            Call dMC.ReadIDTag("z:\\abc.ape", i, Element, Value)
            If Element = "" Then Exit For
            MessageBox.Show(Element + ": " + Value)
        Next


        ' Write an ID Tag
        Call dMC.WriteIDTag("z:\abc.ape", "element1", "value1")

        ' Show compression settings page
        Dim CompressionCLI = "-b=128"
        CompressionCLI = dMC.ShowSettings("mp3 (Lame)", CompressionCLI)
        MessageBox.Show("Returned Compression CLI: " + CompressionCLI)


        ' Read audio properties of a file
        Dim AudioProps = dMC.AudioProperties("z:\abc.ape")
        MessageBox.Show(AudioProps)



        ' Convert all Ape files in folder
        Dim ConvertFiles, i
        ConvertFiles = System.IO.Directory.GetFiles("z:\", "*.ape")
        For i = 0 To ConvertFiles.Length - 1
            Dim ToFile = ConvertFiles(i) + ".mp3"
            Call dMC.Convert(ConvertFiles(i), ToFile, "mp3 (Lame)", "-b=128", "")
        Next