VB6でタイルパターンによるフェードを実現したいのですが、
ぐぐってもあぼぱのサイトなど、大した情報が出てきません(;´Д`)

○○●○ ●○●○ ●○●○ ●○●○ ●●●○ ●●●● ●●●● ●●●●
●○○○ ○○○○ ○○○● ○●○● ○●○● ○●○● ●●○● ●●●●
○○○○ ●○●○ ●○●○ ●○●○ ●○●● ●●●● ●●●● ●●●●
○○○○ ○○○○ ○●○○ ○●○● ○●○● ○●○● ○●●● ●●●●

アルゴリズムは、バックバッファから表画面へ、この順にBitBltなりで転送しろってことでしょうか?
例えば640*480のサイズだとして、上のタイルのように横4ドットのサイズで転送すると、
単純計算160回ループ回さないといけないので、メチャクチャ非効率的な気がするんですが…
(480/4は120なので、1回目の描画時に縦描画処理だけでも120行が必要になる気が…)
タイルのサイズを+4ドットずつに変えるなりすればいいのかな? それでも、非効率的な気がします。

その昔「ちゃぶだいがえし」というサイトでVCによるサンプルがあったんですが、今見たら404になってて(´・ω・`)

何方か効率よい実現方法の情報、ヒントなどお教え下されば幸いです。