Dim tbxA_MouseUp_IsRunning as Boolean
Dim tbxB_MouseUp_IsRunning as Boolean
Private Sub textboxA_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
tbxB_MouseUp_IsRunning = False
tbxA_MouseUp_IsRunning = True
Do While tbxA_MouseUp_IsRunning
Do While selected object count < 2
DoEvents
*Process Selection*
If valid selection then
display information about selection on form
End If
Exit Do
Loop
Loop
TextBoxA_MouseUp 1, 0, X, Y
End Sub
Private Sub textboxB_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
tbxA_MouseUp_IsRunning = False
tbxB_MouseUp_IsRunning = True
Do While tbxB_MouseUp_IsRunning
Do While selected object count < 2
DoEvents
*Process Selection*
If valid selection then
display information about selection on form
End If
Exit Do
Loop
Loop
TextBoxB_MouseUp 1, 0, X, Y
End Sub