VB编程：仿QQ聊天框的抖动效果

Dim a

Private Sub Command1_Click()

   a = 0

   Timer1.Enabled = True

End Sub

Private Sub Form_Load()

   Timer1.Enabled = False

   Timer1.Interval = 50

   Timer2.Enabled = False

   Timer2.Interval = 8000

End Sub

Private Sub Timer1_Timer()

   Static b As Integer

   Timer2.Enabled = True

   If a = 0 Then

       Me.Top = Me.Top + 80

       a = a + 1

   ElseIf a = 1 Then

       Me.Left = Me.Left + 80

       a = a + 1

   ElseIf a = 2 Then

       Me.Top = Me.Top - 80

       a = a + 1

   ElseIf a = 3 Then

       Me.Left = Me.Left - 80

       a = 0

   End If

   b = b + 1

'    Print b   '抖动次数

End Sub

Private Sub Timer2_Timer()

   If Timer1.Enabled = True Then

       Timer1.Enabled = False

       Timer2.Enabled = False

   End If

End Sub