急死人~vb的一个问题

来源：百度知道编辑：UC知道时间：2024/09/23 23:46:22

我想编写一个vb的落下来的打字程序，请问怎么编写字母从窗体的上方落下来

我可以用个小伎俩给你演示一下,你得在窗体上放一个标签label1,和一个定时器timer1 (假如字母是A）

Option Explicit: Dim b As Integer

Private Sub Form_Load()

Label1.AutoSize = True

Label1.Caption = "A"

Me.AutoRedraw = True

Timer1.Enabled = True

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

b = b + 100

Label1.Move 10, b

End Sub