Public Sub MakeShadow(oControl)
  ' Picturebox deklarieren
  Dim oPic As PictureBox
    ' Picturebox der Form1 hinzufügen
  Set oPic = Form1.Controls.Add("VB.PictureBox", oControl & "Shadow")
  ' Position bestimmen
  oPic.Move oControl.Left + 100, oControl.Top + 70, oControl.Width, _
    oControl.Height
  ' Picturebox "sichtbar" machen
  oPic.Visible = True
  oPic.Appearance = 0
  oPic.BorderStyle = 0
  oPic.BackColor = vbBlack
  oControl.ZOrder
End Sub

Private Sub Form_Initialize()
          MakeShadow Command1
End Sub

Private Sub Form_Initialize()
Dim c As CommandButton
     For Each c In Me.Controls
          MakeShadow c
     Next c
End Sub

 Set oPic = Form1.Controls.Add("VB.PictureBox", oControl & "Shadow")

Uli

Wissen ist Macht; nichts wissen macht auch nichts!