Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub CallForm()
   frmMouseMove.Show
End Sub

ClassModule: frmMouseMove

Private Sub cmdContinue_Click()
    Unload Me
End Sub

Private Sub lstMouse_MouseMove( _
    ByVal Button As Integer, _
    ByVal Shift As Integer, _
    ByVal X As Single, _
    ByVal Y As Single)
    If Int(Y / 4) < lstMouse.ListCount Then
        lstMouse.ListIndex = Int(Y / 4)
    End If
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und ListBox