Sub ReScaleMaps(ByVal tnNewWin As Integer, ByVal tnWinExist As Integer, toFrame As Object, tcMapUnit As String, tnScale As Float, ByVal x1 As Float, ByVal y1 As Float, ByVal x2 As Float, ByVal y2 As Float) OnError Goto DisplayError Set Window tnWinExist Width (3.0 * (x2 - x1) / 3.0) Height ...
|