Sub doanimation(selp As Label)
lab.Initialize("")
If lblAnswer.Visible = True Then
If lblTimer.Text >1 Then
Do Until selp.left = lv.Width - 120dip
selp.TextColor = Rnd(Colors.Black, Colors.White)
selp.left = selp.left + 5dip
selp.TextSize = selp.TextSize - 1.99dip
selp.Width = selp.Width -1.9dip
DoEvents
Loop
End If
End If
End Sub