Hey hears the code and the message i get with it is Compile Error
Argument not opional

Private Function LoadSurface(ByVal filename As String) As
Direct3DSurface8
On Local Error GoTo fatal_error
Dim surf As Direct3DSurface8

'return error by dfault
Set LoadSurface = Nothing

'creat the new surface
Set surf = d3ddev.CreateImageSurface(SCREENWIDTH, SCREENHEIGHT,
dispmode.Format)
If surf Is Nothing Then
MsgBox "Error creating surface!"
Exit Function
End If

'load surface from file
d3dx.LoadSurfaceFromFile _ (.LoadSurfaceFromFile_ Is where it is
hilighted )
surf , _
ByVal 0, _
ByVal 0, _
filename, _
D3DX_DEFAULT, _
0, _
ByVal 0

If surf Is Nothing Then
MsgBox "Error loading " & filename & "!"
Exit Function
End If

'return the new surface
Set LoadSurfacce = surf

fatal_error:
Exit Function
End Function

Anything ELSE WRONG with this code please tell.

Bit of a guess but

d3dx.LoadSurfaceFromFile _
surf , _
0, _
0, _
filename, _
D3DX_DEFAULT, _
0, _
0

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

wrote in message
ups.com...
Hey hears the code and the message i get with it is Compile Error
Argument not opional

Private Function LoadSurface(ByVal filename As String) As
Direct3DSurface8
On Local Error GoTo fatal_error
Dim surf As Direct3DSurface8

'return error by dfault
Set LoadSurface = Nothing

'creat the new surface
Set surf = d3ddev.CreateImageSurface(SCREENWIDTH, SCREENHEIGHT,
dispmode.Format)
If surf Is Nothing Then
MsgBox "Error creating surface!"
Exit Function
End If

'load surface from file
d3dx.LoadSurfaceFromFile _ (.LoadSurfaceFromFile_ Is where it is
hilighted )
surf , _
ByVal 0, _
ByVal 0, _
filename, _
D3DX_DEFAULT, _
0, _
ByVal 0

If surf Is Nothing Then
MsgBox "Error loading " & filename & "!"
Exit Function
End If

'return the new surface
Set LoadSurfacce = surf

fatal_error:
Exit Function
End Function

Anything ELSE WRONG with this code please tell.