www.pudn.com > mo_gps.zip > frmMicro.frm

VERSION 5.00 
Object = "{9BD6A640-CE75-11D1-AF04-204C4F4F5020}#2.0#0"; "mo20.ocx" 
Begin VB.Form frmMicro  
   Caption         =   "Form1" 
   ClientHeight    =   2235 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   2685 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   2235 
   ScaleWidth      =   2685 
   StartUpPosition =   3  'Windows Default 
   Begin MapObjects2.Map mapMicro  
      Height          =   2265 
      Left            =   -15 
      TabIndex        =   0 
      Top             =   -15 
      Width           =   2715 
      _Version        =   131072 
      _ExtentX        =   4789 
      _ExtentY        =   3995 
      _StockProps     =   225 
      BackColor       =   0 
      BorderStyle     =   1 
      ScrollBars      =   0   'False 
      BackColor       =   0 
      Contents        =   "frmMicro.frx":0000 
   End 
End 
Attribute VB_Name = "frmMicro" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
 
Private Sub Form_Load() 
mapMicro.Layers.Add frmMain.demLayer 
mapMicro.Refresh 
End Sub