続きです。

//接続＆ネットワークリソースの割り当て
lRet = WNetAddConnection2(netresource, password, username, connectFlg)
if lRet=0 then
  messageBox(\"Information\",\"接続が成功しました\")
else
  lRet = GetLastError()
  choose case lRet
    case    5;  msg = \"アクセスが拒否されました\"
    case   85;  msg = \"このローカルデバイスは既に使用されています\"
    case   66;  msg = \"ネットワークリソースの種類が正しくありません\"
    case 1200;  msg = \"指定したローカルデバイスが無効です\"
    case   67;  msg = \"ネットワークリソースがみつかりません\"
    case 1206;  msg = \"ネットワーク接続プロファイルが壊れています\"
    case 1205;  msg = \"ネットワーク接続プロファイルをオープンできません\"
    case 1202;  msg = \"このローカルデバイスは既に登録済みです\"
    case 1208;  msg = \"ネットワーク固有のエラーが発生しました\"
    case   86;  msg = \"パスワードが無効です\"
    case 1222;  msg = \"ネットワークが存在しません\"
    case 1326;  msg = \"ログオンに失敗しました\"
    case   53;  msg = \"ネットワークパスに誤りがあります\"
    case else;  msg = string(lRet)
  end choose
  messageBox(\"エラー\",msg)
end if
????????????????????????????????????