使用timer改变imagebox高度，出现图象闪烁问题，如何解决？

[ThunderLight]

Private Sub Timer2_Timer()
imgBar1.Height = imgBar1.Height + 50
End Sub
出现图象闪烁问题，如何解决？谢谢

[muniu]

考虑换一种方式。

[qjqmoney]

Private Sub Timer2_Timer()
imgBar1.Height = imgBar1.Height + 50
doevents '加上这句试试
End Sub

[射天狼]

为什么要频繁的改变高度!?