TABLE OF CONTENTS Earlier in this chapter we learned how to provide the user feedback and information through the use of the status bar area in MicroStation. If we look at the status bar area, we see that it changes as we move our cursor over various tool bar buttons. Let's mimic this same functionality in VBA by using the MouseMove events of several controls.
Private Sub UserForm_MouseMove(ByVal Button As Integer, _ ByVal Shift As Integer, ByVal X As Single, _ ByVal Y As Single) ShowPrompt ""End Sub Private Sub fraDestination_MouseMove(ByVal Button As Integer, _ ByVal Shift As Integer, ByVal X As Single, _ ByVal Y As Single) ShowPrompt ""End Sub Private Sub fraSource_MouseMove(ByVal Button As Integer, _ ByVal Shift As Integer, ByVal X As Single, _ ByVal Y As Single) ShowPrompt ""End Sub<a name="678"></a><a name="beginpage.E47735B9-8AFB-4EA1-B8C7-48E7F88BBE30"></a>
As the user moves the cursor around the form and the frames, we do not want to display...
