CreatePostsFromXmlでインデックス範囲外の例外対応（countクエリより多く返す？）

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@243 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb
index 7cdd126..f34f8ea 100644 (file)
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -3384,8 +3384,8 @@ Public Class Twitter
 
     Private Function CreatePostsFromXml(ByVal content As String, ByVal gType As WORKERTYPE, ByVal tab As TabClass, ByVal read As Boolean, ByVal count As Integer, ByRef minimumId As Long) As String
         Dim arIdx As Integer = -1
-        Dim dlgt(count) As GetIconImageDelegate    'countQueryに合わせる
-        Dim ar(count) As IAsyncResult              'countQueryに合わせる
+        Dim dlgt(300) As GetIconImageDelegate    'countQueryに合わせる
+        Dim ar(300) As IAsyncResult              'countQueryに合わせる
         Dim xdoc As New XmlDocument
         Try
             xdoc.LoadXml(content)