I have a simple function that I use in many of my applications. It allows one to update the "Status" panel of a status bar and
optionally set the MousePointer. This is useful if the status is being changed to "Processing " and you want to show the Wait
cursor.
Public Sub UpdateStatusBar (ByVal Status As String, Optional ByVal Pointer As Long = -1)
sbrMain.Panels( "Status") = Status
If Pointer <> -1 Then
Me.MousePointer = Pointer
End If
Me.Refresh
End Sub
This doesn't seem to convert properly using the Upgrade Wizard and I can't seem to find a proper conversion. I tried:
Public Sub UpdateStatusBar (ByVal Status As String, Optional ByVal Pointer As Cursor = Cursors.No)
But is says that the Optional parameter requires a constant Expression. It seems that Cursors is a class and that No is a property.
Any suggestions?
--
Al Reid