很简单的动态效果

interval设置为200.
Option Explicit
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer2.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
End Sub
Private Sub Timer1_Timer()
Static a As Integer
a = a + 1
If a = 1 Then lbljd.Caption = "─"
If a = 2 Then lbljd.Caption = "＼"
If a = 3 Then lbljd.Caption = "│"
If a = 4 Then lbljd.Caption = "／": a = 0
End Sub
Private Sub Timer2_Tim
er()
Static b As Integer
b = b + 1
If b = 1 Then lbljd2.Caption = "."
If b = 2 Then lbljd2.Caption = ".."
If b = 3 Then lbljd2.Caption = "..."
If b = 4 Then lbljd2.Caption = "...."
If b = 5 Then lbljd2.Caption = ".....": b = 0
End Sub