'Ersetze
Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Declare Function CloseClipboard Lib "user32" () As Long
'Durch
Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Integer) As Integer
Declare Function CloseClipboard Lib "user32" () As Integer
 
 
'Und
OpenClipboard (Me.hwnd)
'Durch
OpenClipboard (Me.hwnd.ToInt32())