BYTEINSIGHT
GAPVelocity AI Studio helps you move from outdated tech stacks to the latest desktop, web, and cloud platforms—smarter, faster, and with less risk.
Choose a platform to see migration options:
Our comprehensive approach to application modernization, from assessment to production deployment.
Transformation Services
Not Sure Where to Start?
CustomCursor is not supported in the same way that it was on VB6.
To create a custom cursor use the Cursor Class.
PublicSub CustomCursor()
Command1.MousePointer = 99
Command1.MousePointer = VBRUN.MousePointerConstants.vbCustom
Command1.MousePointer = vbCustom
Command1.MouseIcon = LoadPicture("C:\Picture.cur")
EndSub
PublicSub CustomCursor()
'UPGRADE_ISSUE: (2036) CommandButton property Command1.MousePointer does not support custom mousepointers.
Command1.Cursor = vbCustom
'UPGRADE_ISSUE: (2064) CommandButton property Command1.MouseIcon was not upgraded.
Command1.MouseIcon = Image.FromFile("CursorFile")
EndSub
PublicSub CustomCursor()
Command1.Cursor = New Cursor("CursorFile")
EndSub
publicvoid CustomCursor()
{
//UPGRADE_ISSUE: (2036) CommandButton property Command1.MousePointer does not support custom mousepointers.
Command1.Cursor = vbCustom;
//UPGRADE_ISSUE: (2036) CommandButton property Command1.MousePointer does not support custom mousepointers.
Command1.Cursor = vbCustom;
//UPGRADE_ISSUE: (2036) CommandButton property Command1.MousePointer does not support custom mousepointers.
Command1.Cursor = vbCustom;
}
publicvoid CustomCursor()
{
Command1.Cursor =New Cursor("CursorFile");
}