Με τον παρακάτω κώδικα βρίσκω την κλάση που ανήκει ένα στοιχείο ελέγχου καθώς περνάει ο κέρσορας του ποντικιού από πάνω του:

Public Declare Function GetCursorPos Lib "user32" _
    (lpPoint As POINTAPI) As Long
Public Declare Function WindowFromPoint Lib "user32" _
    (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
    (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Type POINTAPI
    X As Long
    Y As Long
End Type

Private Sub Tmr_Timer()
    GetCursorPos mousePT
    X = mousePT.X
    Y = mousePT.Y
   
    curWindow = WindowFromPoint(X, Y)
    If curWindow <> prevWindow Then
        className = String$(256, " ")
        prevWindow = curWindow
        retValue = GetClassName(curWindow, className, 255)
        className = Left$(className, InStr(className, vbNullChar) - 1)
        Me.Caption = className
        If className <> "ThunderRT6UserControlDC" Then
            For I = 0 To 8
                If Bttn(I).Value Then
                    Cmd(I).ZOrder
                    Exit For
                End If
                Cmd(11).ZOrder
            Next
        End If
    End If
    DoEvents
End Sub

Μπορείτε να με βοηθήσετε ώστε να μπορώ να βρίσκω το όνομα του control με κάποια αντίστοιχη συνάρτηση API πού φέρνει τα στοιχεία του ελεγκτηρίου;

Αυτό που θέλω να κάνω είναι καθώς περνάει το ποντίκι πάνω από κάποιο control να εκτελείται ο επιθυμητός κώδικας.

Έχω φτιάξει ένα μενού σε μια MDI φόρμα που αποτελείται από κουμπιά (Πελάτες, Προμηθευτές, Πωλήσεις κτλ) όπου βάζοντας το ποντίκι πάνω τους, θέλω να εμφανίζεται η αντίστοιχη εικόνα του σε άλλο κεντρικό (απενεργοποιημένο) κουμπί. Κάτι σαν το νέο μενού Start των Windows 7, όπου αν βάλεις το δείχτη πάνω από τις Εικόνες εμφανίζεται η εικόνα που αντιπροσωπεύει το φάκελο Εικόνες.

Απέφυγα να χρησιμοποιήσω το event MouseMove γιατί θα πρέπει να βάλω κώδικα σε πάρα πολλά controls που έχει η κάθε φόρμα και μερικές φορές "τρεμοπαίζει" το ελεγκτήριο που απευθύνεται ο κώδικας του MouseMove. Και επίσης αν κινείται πολύ γρήγορα το ποντίκι έχω παρατηρήσει δεν προλαβαίνει να εκτελεστεί το MouseMove άλλου control και το προσπερνάει. Χώρια που αν βγει εκτός φόρμας το ποντίκι έχει θέμα το MouseMove.

Εκτός και αν υπάρχει κώδικας για τις συντεταγμένες  Χ και  Υ του MouseMove που αν βγει εκτός του ελεγκτηρίου τότε να εκτελείται άλλος κώδικας.

Μήπως έχεις να προτείνεις κάτι καλύτερο; Είμαι ανοιχτός σε κάθε ιδέα! :)