Public Shared Function GetResolution( _
   ByVal worldDistance As Double, _
   ByVal screenDistance As Integer _
) As Double

Dim worldDistance As Double
Dim screenDistance As Integer
Dim value As Double
 
value = Comparer.GetResolution(worldDistance, screenDistance)

public static double GetResolution( 
   double worldDistance,
   int screenDistance
)