Как получить .hdc .hwnd с объекта созданого CreateObject

[Memfivosfey]

Подскажите, как правильно создать объект с помощью CreateObject, а после получить с него .hdc .hwnd например мне нужно создать PictureBox, но не на форме, а в памяти, как мне получить его Handlы...
Буду благодарен за код.
Заранее спасибо.

[GSerg]

Не надо с помощью CreateObject пикчербоксы создавать...

[Memfivosfey]

Код: Выделить всё

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Const SRCCOPY = &HCC0020

Public Sub ScreenShot(FilePath As String)
    Dim hDesk As Long, hDeskDC As Long
    Dim hPic As Long

    hDesk = GetDesktopWindow()
    hDeskDC = GetDC(hDesk)
    BitBlt picShot.hDC, 0, 0, Screen.Width, Screen.Height, hDeskDC, 0, 0, SRCCOPY

    SavePicture icShot.Image, FilePath
End Sub


А если я хочу этот код без формы исполнить, тобишь, как функцию впихнуть в Dll. Как мне назначить picShot picturesом?! Помогите плиз...

[Memfivosfey]

И шо, так никто и не подскажет? Или енто не реально?

[Jenizix]

Memfivosfey, привет!

Не, ну а за чем тебе пикчербокс в памяти то создавать?...

[Memfivosfey]

Хочу Function забабахать...

[Jenizix]

Хочу Function забабахать...

А по подробнее можно? Может есть другие решения?...