ExtCreatePenを使ってるサンプルがあったので見てみましたが正常に描画されているそのサンプルの hPen は 0 でした。> If hPen = 0 Then> MsgBox GetErrMsg(Err.LastDllError)> End Ifここをコメントアウトしてみてはいかがでしょう?