먼저 DirectX라이브러리를 추가해야합니다.
vb제목표시줄에서

프로젝트--->참조 --->
DirectX 7 for Visual Basic Type Library 를 체크하시고

나오셔서 밑에 소스를 붙여넣기 시면됩니다.

DirectX 8을 쓰셔도 되지만 나중에 exe실행할대

다이렉트 8이 안깔린 컴에서는 프로그램이 실행도지 않을껍니다^^

Dim DX As New DirectX7
Dim DDraw As DirectDraw7
Dim DDSD0 As DDSURFACEDESC2
Dim DDSD1 As DDSURFACEDESC2

Private Sub Form_Click()
Set DDraw = Nothing
Set DX = Nothing
End
End Sub

Private Sub Form_Load()
Set DDraw = DX.DirectDrawCreate("")

DDraw.SetCooperativeLevel Me.hWnd, '이 줄과
DDSCL_EXCLUSIVE Or DDSCL_FULLSCREEN '이줄은 같은줄입니다.
'두줄을 한줄로 고치세요. 안그러면 에러남.

DDraw.SetDisplayMode 800, 600, 16, 0, DDSDM_DEFAULT
End Sub