Private Declare Function SetParent Lib "user32" ( _
  ByVal hWndChild As Long, _
  ByVal hWndNewParent As Long) As Long

  With Picture1
    .BorderStyle = 0
    .TabStop = False
    .Height = (Grid1.ColumnHeaderHeight - 2) * Screen.TwipsPerPixelY
    SetParent .hWnd, Grid1.hWndGrid
    .Move 15, 15
  End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de