ラベルを一気に消すには？

タメ子  2008-02-12 16:04:33  No: 138943  IP: 192.*.*.*

WindowsXP VB2005

下記のようなプログラムでタイマーにより、複数のラベルを一気に
表示・非表示を繰り返しています。
この程度 (９個) だと実際に動かした時点ではわからないのですが、
デバッグで１つ１つ処理を見ると、
ラベルを表示 (Visible = True) の場合は、この処理を抜けた時点
で一気に画面に表示されますが、非表示 (Visible = False) は、
ループ内で１つ１つ消しています。(実際に画面から１つ１つ消えます)

これを表示時と同じように処理を抜けた時点で一気に非表示にするには
どうすればよろしいでしょうか。

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    Static aaa As Boolean

    Dim i As Integer

    Me.SuspendLayout()

    For i = 1 To 9 Step 1

        If aaa = True Then
            LabelArray1(i).Visible = True
        Else
            LabelArray1(i).Visible = False
        End If

    Next

    Me.ResumeLayout(False)

    aaa = Not aaa

End Sub

編集 削除
やじゅ  2008-02-12 23:08:02  No: 138944  IP: 192.*.*.*

パネルの上にラベルコントロールを貼ればいいんでないの。
パネル.Visibe = True or Falseのみで済みますが

編集 削除