<code>
Sv: Muspekaren?
Svara
Option Explicit
Private Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long
Private sub Command1_Click()
ShowCursor False 'Gömmer muspekaren
End Sub
Private sub Command2_Click()
ShowCursor True 'Visar muspekaren
End Sub
</code>