descrizione gestione proprietà con VBA
esci con vbasintassi1.htm

puntatore.ppt
forma assunta dal puntatore visualizzata quando passa su oggetto

Private Sub CommandButton1_Click()
Label1.MousePointer = 0
Label2.MousePointer = 1
Label3.MousePointer = 2
Label4.MousePointer = 3
Label5.MousePointer = 6
Label6.MousePointer = 7
Label7.MousePointer = 8
Label8.MousePointer = 9
Label9.MousePointer = 10
Label10.MousePointer = 11
Label11.MousePointer = 12
Label12.MousePointer = 13
Label13.MousePointer = 14
Label14.MousePointer = 15
Label15.MousePointer = 99
End Sub

Private Sub CommandButton2_Click()
Label1.MousePointer = fmMousePointerAppStarting
Label2.MousePointer = fmMousePointerArrow
Label3.MousePointer = fmMousePointerCross
Label4.MousePointer = fmMousePointerCustom
Label5.MousePointer = fmMousePointerDefault
Label6.MousePointer = fmMousePointerHelp
Label7.MousePointer = fmMousePointerHourGlass
Label8.MousePointer = fmMousePointerIBeam
Label9.MousePointer = fmMousePointerNoDrop
Label10.MousePointer = fmMousePointerSizeAll
Label11.MousePointer = fmMousePointerSizeNESW
Label12.MousePointer = fmMousePointerSizeNS
Label13.MousePointer = fmMousePointerSizeNWSE
Label14.MousePointer = fmMousePointerSizeWE
Label15.MousePointer = fmMousePointerUpArrow


Private Sub UserForm_Click()

End Sub

qpuntatore.ppt

assegnazione di mousepointer (da 1 a 13) a vari oggetti
direttamente da casella proprietà