What do you guys like to use for mouse mapping?

[bplus]

@Pete I am reviewing your Mouse routine and immediately stumped by this autoKey$ business:

Code: (Select All)

Sub MyMouse_and_Keyboard (lb, mb, rb, my, mx, mw, shift%, clkcnt, drag, b$)
    Static oldmy, oldmx, z1, hover, mwy, oldmwy
    If Len(autokey$) Then
        b$ = Mid$(autokey$, 1, InStr(autokey$ + ",", ",") - 1)
        autokey$ = Mid$(autokey$, InStr(autokey$ + ",", ",") + 1)
    Else
        b$ = InKey$
    End If

That is the only place autokey$ is used so the first part of If never is true!

Some may even say it is nonsense, not me, but some might

Perhaps an artifact from another sub this code was created from?

Another stumper is nob, never set anywhere only used as below.

Code: (Select All)

For i = 1 To nob ' number of buttons.
        If my >= y_btl(i) And my <= y_bbr(i) And mx >= x_btl(i) And mx <= x_bbr(i) Then
            b_hover = i
            Exit For
        End If
    Next

This loop really isn't. Hoover can only occur over button one? nawh.

I am thinking of getting generic sub going and testing in old programs and want really tight code.