>Agree on all points. Are we the only two who see this? Indeed, why was a better wheel support not part of the vfp9 release!

Well, I just tried this, and mouse wheell scrolling works fine for me. I will do a flash video and post the url.

Public oForm
oForm = Createobject("form1")
oForm.Show()

Define Class form1 As Form

    Top = 0
    Left = 0
    Height = 173
    Width = 375
    DoCreate = .T.
    Caption = "Form1"
    Name = "form1"

    Add Object combo1 As ComboBox With ;
        FontName = "Tahoma", ;
        FontSize = 9, ;
        Height = 24, ;
        Left = 24, ;
        Style = 0, ;
        TabIndex = 1, ;
        Top = 36, ;
        Width = 324, ;
        Name = "Combo1"

    Add Object combo2 As ComboBox With ;
        FontName = "Tahoma", ;
        FontSize = 9, ;
        Height = 24, ;
        Left = 24, ;
        Style = 2, ;
        TabIndex = 2, ;
        Top = 108, ;
        Width = 324, ;
        Name = "Combo2"

    Procedure combo1.Init
    This.AddItem([--- Select One ---])
    This.AddItem([Afghanistan])
    This.AddItem([Aland Islands])
    This.AddItem([Albania])
    This.AddItem([Algeria])
    This.AddItem([American Samoa])
    This.AddItem([Andorra])
    This.AddItem([Angola])
    This.AddItem([Anguilla])
    This.AddItem([Antarctica])
    This.AddItem([Antigua and Barbuda])
    This.AddItem([Argentina])
    This.AddItem([Armenia])
    This.AddItem([Aruba])
    This.AddItem([Australia])
    This.AddItem([Austria])
    This.AddItem([Azerbaijan])
    This.AddItem([Bahamas])
    This.AddItem([Bahrain])
    This.AddItem([Bangladesh])
    This.AddItem([Barbados])
    This.AddItem([Belarus])
    This.AddItem([Belgium])
    This.AddItem([Belize])
    This.AddItem([Benin])
    This.AddItem([Bermuda])
    This.AddItem([Bhutan])
    This.AddItem([Bolivia])
    This.AddItem([Bosnia and Herzegovina])
    This.AddItem([Botswana])
    This.AddItem([Bouvet Island])
    This.AddItem([Brazil])
    This.AddItem([British Indian Ocean Territory])
    This.AddItem([Brunei Darussalam])
    This.AddItem([Bulgaria])
    This.AddItem([Burkina Faso])
    This.AddItem([Burundi])

    This.ListIndex = 1
    Endproc

    Procedure combo2.Init
    This.AddItem([--- Select One ---])
    This.AddItem([Afghanistan])
    This.AddItem([Aland Islands])
    This.AddItem([Albania])
    This.AddItem([Algeria])
    This.AddItem([American Samoa])
    This.AddItem([Andorra])
    This.AddItem([Angola])
    This.AddItem([Anguilla])
    This.AddItem([Antarctica])
    This.AddItem([Antigua and Barbuda])
    This.AddItem([Argentina])
    This.AddItem([Armenia])
    This.AddItem([Aruba])
    This.AddItem([Australia])
    This.AddItem([Austria])
    This.AddItem([Azerbaijan])
    This.AddItem([Bahamas])
    This.AddItem([Bahrain])
    This.AddItem([Bangladesh])
    This.AddItem([Barbados])
    This.AddItem([Belarus])
    This.AddItem([Belgium])
    This.AddItem([Belize])
    This.AddItem([Benin])
    This.AddItem([Bermuda])
    This.AddItem([Bhutan])
    This.AddItem([Bolivia])
    This.AddItem([Bosnia and Herzegovina])
    This.AddItem([Botswana])
    This.AddItem([Bouvet Island])
    This.AddItem([Brazil])
    This.AddItem([British Indian Ocean Territory])
    This.AddItem([Brunei Darussalam])
    This.AddItem([Bulgaria])
    This.AddItem([Burkina Faso])
    This.AddItem([Burundi])

    This.ListIndex = 1
    Endproc

Enddefine