（求助）VB下拉框的制作

SendMessage hwd, &H100, Key(Combo1.ListIndex), 0&
SendMessage hwd, &H101, Key(Combo1.ListIndex), 0&


Private Function Key(Anjian As Long) As Long '用于转换按键的函数
Select Case Anjian
  Case 0
    Key = &H70 ‘F1
  Case 1
    Key = &H71 'F2
  Case 2
    Key = &H72 'F3
  Case 3
    Key = &H73 'F4
  Case 4
    Key = &H74
  Case 5
    Key = &H75
  Case 6
    Key = &H76
  Case 7
    Key = &H77
  Case 8
    Key = &H31 '1
  Case 9
    Key = &H32 '2
  Case 10
    Key = &H33 '3
  Case 11
    Key = &H34
  Case 12
    Key = &H35
  Case 13
    Key = &H36
  Case 14
    Key = &H37
  Case 15
    Key = &H38
  Case 16
    Key = &H39 '9
  Case 17
    Key = &H30 '0
End Select
End Function
这个是部分代码在广海看的但是要实现那个下拉筐的功能总是不明白怎么实现希望各位老师能够帮助帮助~~