こんばんは、魔界の仮面弁士様
  >どこでどういうエラーが出たのか分かりませんし、

　    If i Mod 200 = 0 Then
　　の所で、２００分の１のデータに変更してるのですが、
　　もっと多いデータだと、実行途中ではエラーは出ませんが、
　　作成されるbitmapファイルが、真っ黒になって、何も描画されていない状態になります。
　　描画できると、全体白いバックに、赤い小さな四角が沢山描画されます。

　　エラーが出ないので、どこがどうしたエラーなのかわかりませんでした・・・