VB編程：仿QQ聊天框的抖動效果-58

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.Interva

>>阅读原文<<