Kann jemand diese VisualBasic Function hier:

Public Function CalcVertexBrightness(LightX As Long, LightY As Long, VertexX As Long, VertexY As Long)
Dim lXDistance As Long
Dim lYDistance As Long
Dim lDistance As Long
Dim lVertexDistance As Long
Dim lDistanceNormal As Long
Dim lLightSteps As Long

lDistanceNormal = CLng(Sqr((TileWidth / 2) ^ 2 + (TileHeight / 2) ^ 2))

''' Berechnet die Entfernung vom Vertex
lXDistance = CLng(Abs(LightX - VertexX))
lYDistance = CLng(Abs(LightY - VertexY))
lVertexDistance = CLng(Sqr(lXDistance ^ 2 + lYDistance ^ 2) / lDistanceNormal)

If lVertexDistance <= LIGHT_MAXSTEPS Then
''' Berechnet die Lichtstufen
lLightSteps = CLng(Abs((LIGHT_BEGIN - LIGHT_END)) / LIGHT_MAXSTEPS)

''' Berechnet die Helligkeit des Lichtes
CalcVertexBrightness = CLng(LIGHT_BEGIN - (lVertexDistance * lLightSteps))
Else
''' Wenn die Entfernung nicht pass, dann gib den untersten Wert zurück
CalcVertexBrightness = LIGHT_END
End If

'CalcVertexBrightness = 255 'LIGHT_END

End Function

in einer VC++ Dll-Function convertieren.
Ich verzweifele so ziemlich daran!

Cu Meckie

Danke hat sich erledigt.
Danke für euere Hilfe :-)