MEMBUAT OBJEK BERGERAK, MENJADIKAN USERFORM TAMPIL LEBIH KEREN
Script berikut untuk membuat object bergerak,
contoh gambar di atas, saat Run ngumpet begitu di klick ia akan bergerak geser ke kanan,
membuat tampilan form semakin keren. objecknya sama kasih nama F_MENU,
berikut scriptnya.
Private Sub F_MENU_Click()
Do While F_MENU.Left < 0
F_MENU.Left = F_MENU.Left + 3
DoEvents
Loop
End Sub
Do While F_MENU.Left < 0
F_MENU.Left = F_MENU.Left + 3
DoEvents
Loop
End Sub
NOTE: +3 warna merah adalah tingkat kecepatan, semakin tinggi angka semakin cepat.
left
= bergerak dari kiri ke kanan, bisa di ganti sesaui keinginan., misal
ganti dari atas ke bawah ganti menjadi top / kanan = right dst.
semoga bermanfaat