用简单的方法实现Bingo随机出号动态效果

公司举办年会要做个Bingo抽奖游戏，请我开发这个Bingo程序。

现功能已按要求做好。其中的随机出号效果用了几个由小到大的 Label 来简单实现。主要VB.NET 代码如下：

            hitIndex = rand.Next(0, numRemainList.Count - 1)
            hitNum = numRemainList.Item(hitIndex)

            LabelD1.Text = hitNum
            LabelD2.Text = hitNum
            LabelD3.Text = hitNum
            LabelD4.Text = hitNum

            LabelD1.Visible = True
            LabelD2.Visible = False
            LabelD3.Visible = False
            LabelD4.Visible = False
            Me.Refresh()
            System.Threading.Thread.Sleep(200)

            LabelD1.Visible = False
            LabelD2.Visible = True
            Me.Refresh()
            System.Threading.Thread.Sleep(300)

            LabelD2.Visible = False
            LabelD3.Visible = True
            Me.Refresh()
            System.Threading.Thread.Sleep(500)

            LabelD3.Visible = False
            LabelD4.Visible = True
            Me.Refresh()
            System.Threading.Thread.Sleep(1000)

            LabelD4.Visible = False
            Me.Refresh()

            RichTextBoxSelected.Text &= hitNum & "   "
            Me.Refresh()