كود إهتزاز الفورم

الكود البرمجي الذي يعمل على إهتزاز الفورم كما في برنامج الماسينجر

Public Class Form1 Dim x As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Timer1.Interval = 3 Me.Timer1.Enabled = True x = 5 Me.TextBox1.AppendText("Buzz!!" & vbNewLine) End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me.Left = Me.Left + x Me.Top = Me.Top + x x = -x Me.Timer1.Interval = Me.Timer1.Interval + 3 If Me.Timer1.Interval >= 99 Then Me.Timer1.Enabled = False End If End Sub End Class

ماجد سوفت للبرمجيات

 majedsoft@hotmail.com