Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long
' Отображаем рисунок Рабочего стола на форме Form1 PaintDesktop Me.hdc