تفضل استاذ @بوكفوس عبدالسلام حسب مافهمت . ووافني بالرد .
Private Sub CommandButton_Click()
With Me.ComboBox
.Top = Me.CommandButton.Top + Me.CommandButton.Height
.Visible = True
.SetFocus
.Dropdown
End With
End Sub
'ComboBox : اسم القائمة المنسدلة لديك
'CommandButton :اسم الزر لديك