場の雰囲気が良く分からんが。

p: ピクチャボックス t: タイマ(Interval=50)
e(): ブロック f: 自機 b:ボール (いずれもShape)
fは背景黒&不透明, bは透明, e()は不透明

Dim n,w,h
Sub Form_Load():For Each V In e:V.BackColor=vbWhite- _
V.Index:Next:n=e.UBound+1:w=-100:h=-100:End Sub
Sub p_KeyDown(k As Integer, S As Integer)
f.Move f.Left+100*((k=37)-(k=39)):End Sub
Sub t_Timer():b.Move b.Left+w,b.Top+h:w=IIf(Abs(p.Width/2-b.Left)>p.Width/2, _
-w,w):h=IIf(b.Top<b.Height,-h,h):If b.Top>p.Height Then MsgBox "lost":End
c=p.Point(b.Left+b.Width/2,b.Top+b.Height/2):If c>&HFFF000 Then h=-h: _
e(vbWhite-c).Visible=0:n=n-1:If n=0 Then MsgBox "complete":End
h=IIf(c=vbblack,-h,h):End Sub