Ciao
codice:
 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim Combo As New ComboBox
        Combo.Name = "Combo1"
        Combo.Top = DirectCast(sender, Button).Top + 50
        Combo.Left = DirectCast(sender, Button).Left
        Me.Controls.Add(Combo)
    End Sub
Facci sapere...
Ciao