Private Sub Command1_Click()
  OpenClipboard Me.hwnd
  ' Handle des Bitmaps ermitteln
  hBitmap = GetClipboardData(2)
  If hBitmap <> 0 Then
   Bitmap anzeigen
   Picture1.Visible = True
   Picture1.Cls
   Picture1.Refresh
   SelectObject Picture1.hdc, hBitmap
   Picture1.Refresh
  End If
 
  ' Clipboard schließen
  CloseClipboard
End Sub

Rechtschreibfehler stehen unter Copyright und d?rfen nur gegen Bezahlung weiterverwendet werden.