1
Abra el programa de Visual Basic . Acceda a la ventana de código
2
Abra la función Form_MouseMove y escriba lo siguiente : .
Form1.MousePointer = vbCrosshair
Cuando el usuario pasa su puntero sobre la forma , los predeterminados cursor cambia a una cruz
3
abrir la función Label1_MouseMove y escriba lo siguiente : .
Label1.MousePointer = vbSizeNS
Cuando el usuario se desplaza sobre Label1 (suponiendo que este control existe en su forma ) , el valor predeterminado cursor cambia a una flecha que apunta hacia el norte y el sur. Esto anula el puntero de precisión que se muestra en el resto del formulario
4
Abra la función Label2_MouseMove y escriba lo siguiente : .
Label2.MouseIcon = LoadPicture ("C: \\ MyCursor . act " )
Label2.MousePointer = vbCustom
Cuando el usuario pasa más de Label2 (suponiendo que este control existe en su forma ) , el valor predeterminado cursor se convierte en un cursor personalizado proporcionado en la función LoadPicture . Asegúrese de que la ruta de acceso en la lista de parámetros coincide con la que ha guardado el archivo de cursor .