Membuat Tombol animasi di Userform

Membuat Tombol animasi di Userform

Membuat Tombol animasi Seakan akan tombol bergerak gerak saat mouse diarahkan dan tidak dirahkan pada sebuah tombol di userform

Intinya  cara kerjakan adalah image1 dan image2 akan tampil dan sembunyi secara berganntian bila kursor diarahkan di image 3

Kita harus menyiapkan 3 image
Image1
Image2 dan
Image3

Image 1 dan image2 diisi gambar sesuai jenis tombol yang dibutuhkan

Kemudian image 3 dibuat kosong tanpa gambar dan diatur Transparan pada property vba

Caranya :
1 Pastekan kode berikut di Image 3

Private Sub Image3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.Image1.Visible = True
    Me.Image2.Visible = False
End Sub

2 Pastekan kode berikut pada Userform

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Image1.Visible = False
Me.Image2.Visible = True
End Sub

Private Sub UserForm_Initialize()
Me.Image1.Visible = False
End Sub

Tombol Animasi