modvar.bas

来自「Unzip this file into a writeable directo」· BAS 代码 · 共 12 行

Attribute VB_Name = "modVar"
Option Explicit

Public geo As New MapObjects2.Geocoder
Public stan As New MapObjects2.Standardizer

Public Sub CenterForm(frm As Form)
   ' centers the form on the screen
   frm.Top = (Screen.Height - frm.Height) \ 2
   frm.Left = (Screen.Width - frm.Width) \ 2
End Sub