vb.netでAPIを使用し描画するには? (ID:85843)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 はじめましてtaka2と申します。 よろしくお願いいたします。 vb.netでAPIを使用し描画するために下記の様なソースで 画面全体に最前面に描画したくやってみましたが、 何も表示されませんでした。 Private Sub frmMain_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click Dim hDC As Integer Dim hMEM As Integer Dim hBITMAP As Integer Dim yerrowPen As Integer Dim greenPen As Integer Dim redPen As Integer Dim oldPen As Integer Dim PS_SOLID As Integer = 0 Dim hRect As Rect Dim Ret As Integer = 0 'フォームハンドル取得 Dim frmMainHandle As Integer = Me.Handle.ToInt32 Dim lp As Point hDC = GetDC(frmMainHandle) Ret = GetClientRect(frmMainHandle, hRect) hMEM = CreateCompatibleDC(hDC) hBITMAP = CreateCompatibleBitmap(hDC, hRect.Left, hRect.Right) SelectObject(hMEM, hBITMAP) SetBkMode(hMEM, TRANSPARENT) greenPen = CreatePen(PS_SOLID, 5, RGB(0, 255, 0)) oldPen = SelectObject(hMEM, greenPen) Call MoveToEx(hMEM, 0, 0, lp) Call LineTo(hMEM, 5000, 5000) SelectObject(hMEM, oldPen) DeleteObject(redPen) BitBlt(hDC, 0, 0, hRect.Right, hRect.Bottom, hMEM, 0, 0, SRCCOPY) End Sub しかし、何も表示されません。 何か手順に抜けがあるのでしょうか? アドバイスいただきたいと思います。 よろしくお願いいたします。