ビットマップの表示

[ゲスト]

初めまして、ゲストです。
リソースにあるビットマップを表示するのを試しに作っているのですが、
表示されません。
どこがダメなのでしょうか。
コードはこうです。

コード: 全て選択

Dim hBmp As DWord'リソースのビットマップのハンドル
	hdc=GetDC(hMainWnd)
	memdc=CreateCompatibleDC(hdc)
	hBmp=LoadImage(GetModuleHandle(NULL),IDB_BITMAP1,IMAGE_BITMAP,0,0,LR_DEFAULTCOLOR)
	SelectObject(memdc,hBmp)
	BitBlt(hdc,0,0,256,100,memdc,0,0,SRCCOPY)

[ゲスト]

すいません、自己解決しました。