چطوری میشه این دستورات در direct x را تبدیل کرد به open gl

سلام کسی میدونه این چند خط را چطوری میشه تبدیل کرد به opengl این مثال ها مربوط به directx هست اما برخی توابع به نظر میرسه یا وجود نداره یا باید به شکل دیگه کد نویسی بشه

Dim lrc As D3DLOCKED_RECT
Private texRefl As Direct3DTexture8
.
.
.

نقل قول:

---

'srfOff.LockRect lrc, ByVal 0&, 0
'SetDIBitsToDevice Me.hdc, 0, 0, Me.ScaleWidth, Me.ScaleHeight, 0, 0, 0, Me.ScaleHeight, ByVal lrc.pBits, biWnd, 0
'srfOff.UnlockRect

---

نقل قول:

---

---

و همچنین این :

نقل قول:

---

texRefl.LockRect 0, lrc, ByVal 0&, D3DLOCK_DISCARD
and
StretchBlt dstDc, 0, 0, refQ, refQ, srcDc, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, vbSrcCopy
memcpy ByVal lrc.pBits, ByVal lpDat, refQ * refQ * 4

---

حل شد ، با دستوراتی شبیه این :

if GdipBitmapLockBits(hImage, dstBoundsI, ImageLockModeWrite Or ImageLockModeUserInputBuf, tBMPsrc.PixelFormat, tBMPsrc) Then

            GdipDisposeImage hImage: hImage = 0

        Else

            GdipBitmapUnlockBits hImage, tBMPsrc

        End If