Function DownloadURL(url) 

    Select Case url
           Case "Ex4hXP.zip"
                 Window.location ="http://hp.vector.co.jp/authors/VA022434/Exma4/Ex4hXP.zip"
           Case "Ex4sXP.zip"
                 Window.location ="http://exma.zive.net/tool/Ex4sXP.zip"
           Case "Ex4h98.zip"
                 Window.location ="http://exma.zive.net/tool/Ex4h98.zip"
           Case "Ex4s98.zip"
                 Window.location ="http://exma.zive.net/tool/Ex4s98.zip"

           Case "Ex4h98inst.zip"
                 Window.location ="http://hp.vector.co.jp/authors/VA022434/Exma4/Ex4h98inst.zip"
           Case "Ex4Fix2.zip"
                 Window.location ="http://hp.vector.co.jp/authors/VA022434/Exma4/Ex4Fix2.zip"
           Case "OEchg.zip"
                 Window.location ="http://hp.vector.co.jp/authors/VA022434/Exma4/OEchg.zip"
           Case "ExShort.zip"
                 Window.location ="http://hp.vector.co.jp/authors/VA022434/Exma4/ExShort.zip"           
    End Select
End Function