استفاده از beep هنگام حرکت لیبل

[mahdiabi]

سلام
دوستان میخوام یه لیبل یا picture box رو فرم بزارم و از سمت راست به چپ حرکت کنه و هنگام حرکت با استفاده از api ی beep بوق هم بزنه و وقتی رسید به سمت چپ قطع شه... خیلی به کمک نیاز دارم . با تشکر

[meys34]

یه لیبل و یه تایمر بزارید روی فرم:

تابع Beep صداش از توی کیس در میاد...

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Form_Load()
Timer1.Interval = 100
Label1.BackColor = vbRed
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 30
Beep 600, 50

If Label1.Left < 0 Then Timer1.Enabled = False
End Sub

[mahdiabi]

[QUOTE=meys34;2206591]یه لیبل و یه تایمر بزارید روی فرم:

تابع Beep صداش از توی کیس در میاد...


خیلی ممنون دقیقا چیزی شد که میخواستم ... با تشکر فراوان