ياريت حد يفهمنى الكود ده (مش طويل وأريد أفهم منه بعض الجزئيات)

السلام عليكم ورحمة الله وبركاته

أنا حقيقة بتعلم برمجة دايركت أكس عن

عن طريق ربطها بالفيجوال بيسك فالهمه صدفنى هذا الكود وهو يتكلم عن السطوح الخلفى والرئيسى إلخ

المهم ده الكود

الكود

Option Explicit
Dim Dx As New DirectX7
Dim Dd As DirectDraw7
Dim Ddsd As DDSURFACEDESC2
Dim Primary As DirectDrawSurface7
Dim Back_Buffer As DirectDrawSurface7
Private Sub Command1_Click()
Set Dd = Dx.DirectDrawCreate("")
Dd.SetCooperativeLevel Me.hWnd, DDSCL_EXCLUSIVE Or DDSCL_FULLSCREEN Or DDSCL_ALLOWREBOOT
Dd.SetDisplayMode 800, 600, 16, 0, DDSDM_DEFAULT
Show
With Ddsd
 .lFlags = DDSD_CAPS Or DDSD_BACKBUFFERCOUNT
 .ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE Or DDSCAPS_FLIP Or DDSCAPS_COMPLEX
 .lBackBufferCount = 1
End With
Set Primary = Dd.CreateSurface(Ddsd)
Ddsd.ddsCaps.lCaps = DDSCAPS_BACKBUFFER
Set Back_Buffer = Primary.GetAttachedSurface(Ddsd.ddsCaps)
Do
Back_Buffer.setDrawWidth 1
Back_Buffer.SetForeColor RGB(0, 0, 0)
Back_Buffer.SetFillColor RGB(0, 20, 100)
Back_Buffer.DrawBox 0, 0, 800, 600

Primary.Flip Nothing, DDFLIP_WAIT
DoEvents
Loop
End Sub

اللى انا أريد إن أفهمه أولاً

Set Dd = Dx.DirectDrawCreate("")
Dd.SetCooperativeLevel Me.hWnd, DDSCL_EXCLUSIVE Or DDSCL_FULLSCREEN Or DDSCL_ALLOWREBOOT
Dd.SetDisplayMode 800, 600, 16, 0, DDSDM_DEFAULT
Show

أنا عارف أنه هذه الجزئية خاصة بربط الديركت أكس بكرت العرض واللى هو رمزه فارغ

والسطر الثانى

Dd.SetDisplayMode 800, 600, 16, 0, DDSDM_DEFAULT

With Ddsd
 .lFlags = DDSD_CAPS Or DDSD_BACKBUFFERCOUNT
 .ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE Or DDSCAPS_FLIP Or DDSCAPS_COMPLEX
 .lBackBufferCount = 1
End With
Set Primary = Dd.CreateSurface(Ddsd)
Ddsd.ddsCaps.lCaps = DDSCAPS_BACKBUFFER
Set Back_Buffer = Primary.GetAttachedSurface(Ddsd.ddsCaps)

Back_Buffer.DrawBox 0, 0, 800, 600

Primary.Flip Nothing, DDFLIP_WAIT
DoEvents
Loop