１２８．ウインドウ全体のデバイスコンテキストのハンドルを取得する

＜　使用用途　＞
ウインドウ全体のデバイスコンテキストのハンドルを取得する

　＜　説明　＞
ＡＰＩ関数のGetWindowDC 使用します
GetWindowDC ＝＞ウインドウ全体のデバイスコンテキストのハンドルを取得
　　＜引数＞
　　　　　hWnd：ウインドウのハンドル　　　　　
　　＠戻り値＠
　　　　　デバイスコンテキストのハンドル

<　ＳＡＭＰＬＥ　＞

'標準モジュール
Public Declare Function GetWindowDC Lib "USER32" Alias "GetWindowDC" (ByVal hWnd　As Long) As Long

'ここからはフォームの処理です
Private Sub Command1_Click()
　 Dim Ret As Long
　　　Ret = GetWindowDC（Form1.hWnd）
End Sub