mengganti pointer mouse dengan gambar

mengganti pointer mouse dengan gambar, trik ini digunakan untuk mempercantik pointer standar yg hanya berbentuk panah, misalnya kita ganti dengan icon palu atau apalah hehehe
langsung saja kita ke pokok bahasan :

yg perlu kita siapkan hanyalah gambar yg akan digunakan untuk menggantikan pointer mouse, file harus berekstensi "ico"

Private Sub Form_Load()
MousePointer = 99
MouseIcon = LoadPicture(App.Path & "\hammer1.ico")
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'pointer mouse akan berubah pada saat di klik
MouseIcon = LoadPicture(App.Path & "\hammer2.ico"): Beep
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseIcon = LoadPicture(App.Path & "\hammer1.ico")
End Sub