Managing the Hourglass

Managing the Hourglass

It can be very useful to have a central public function for manipulating themouse pointer in a Visual Basic application. This function can help youorganize how the hourglass is shown and at what level (form, screen):

 Public Sub Hourglass(ByVal blnHourglassSetTo As Boolean)Select Case Forms.CountCase 0 'No Form is loaded so set the screen    If blnHourglassSetTo = True Then        Screen.MousePointer = vbHourglass    Else        Screen.MousePointer = vbDefault    End IfCase Else    If blnHourglassSetTo = True Then        If VB.Screen.ActiveForm Is Nothing Then            Screen.MousePointer = vbHourglass        Else            VB.Screen.ActiveForm.MousePointer = vbHourglass        End If    Else        If Not VB.Screen.ActiveForm Is Nothing Then            Screen.MousePointer = vbDefault            VB.Screen.ActiveForm.MousePointer = vbDefault        End If        Screen.MousePointer = vbDefault    End IfEnd SelectEnd Sub
See also  How HealthStream Learning Center Supports Healthcare Education and Compliance

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist