Membuat Efek Vibrate Pada Form VB 6

sebenarnya tips ini tidak terlalu penting, tapi sekedar mencoba share ilmu tentang VB aja buat sobat-sobat VB Developer yang pengen menambah koeksi aksesoris. Tips ini untuk membuat unik Form sewaktu di run atau ditampilkan, maksud Efek Vibrate ini adalah Efek Getaran jadi sewaktu form di tampilan Form akan bergetar-getar , untuk effect ini codingnya cukup mudah tidak panjang tidak capek ngetik nya, bagi yang berminat silakan ikuti langkah-langkah berikut. Persiapan yangharus kamu lakukan :
Private Sub Vibrate(frm As Form, rScale As Integer, Times As Integer)
Dim Lft As Long, Tp As Long
Dim i
Lft = frm.Left
Tp = frm.Top
For i = 1 To Times
frm.Move Lft + Sgn(rScale)
Pause 20
frm.Move Lft + rScale
Pause 20
frm.Move Lft, Tp + Sgn(rScale), frm.Width, frm.Height
Pause 20
frm.Move Lft, Tp + rScale, frm.Width, frm.Height
Pause 20
Next i

mau coding lebih lengkap Download codingnya klik disini

Gak panjang kan, nah kalo udah selesai coba sobat jalankan (Run) atau tekan F5 , apa bener form nya bergetar-getar, selamat mencoba aja yah.
mudah-mudahan ada mamfaat nya bagi kita semua dan khusus nya bagi saya yang masi belajar VB Developer Junior semoga dapat menambah referensinya.