Sub Conv2Dto3D(Device As Direct3DDevice8, ScreenX, ScreenY, ByRef NearPoint As _
  D3DVECTOR, ByRef FarPoint As D3DVECTOR)
Dim viewm As D3DMATRIX
Dim projm As D3DMATRIX
Dim worldm As D3DMATRIX
Dim viewp As D3DVIEWPORT8
Device.GetTransform D3DTS_VIEW, viewm
Device.GetTransform D3DTS_PROJECTION, projm
Device.GetTransform D3DTS_WORLD, worldm
Device.GetViewport viewp
D3DXVec3Unproject NearPoint, Vec3D(CDbl(ScreenX), CDbl(ScreenY), 0), viewp, _
  projm, viewm, worldm
D3DXVec3Unproject FarPoint, Vec3D(CDbl(ScreenX), CDbl(ScreenY), 1), viewp, _
projm, viewm, worldm
End Sub

Dim vN As D3DVECTOR
Dim vF As D3DVECTOR
Conv2Dto3D D3DDevice, X, Y, vN, vF

..oO°*Kondome schützen nicht vor Geschlechtsverkehr*°Oo..
Alles was man zur DirectX8 Programmierung braucht
Visual Basic auf USB-Stick