form2.frm

绘制等高线的很好控件.很是实用.希望以后多多交流.

VERSION 5.00
Object = "{B62F5114-F3ED-48CA-952E-390E9EC8E86B}#1.0#0"; "ViContour45.ocx"
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   4755
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6555
   LinkTopic       =   "Form2"
   ScaleHeight     =   4755
   ScaleWidth      =   6555
   StartUpPosition =   3  'Windows Default
   Begin ViContour1.ViContour ViContour1 
      Height          =   3255
      Left            =   1320
      TabIndex        =   0
      Top             =   600
      Width           =   4215
      _ExtentX        =   7435
      _ExtentY        =   5741
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub setPanel()
   With ViContour1
      .Left = 0
      .Top = 0
      .Width = Me.ScaleWidth
      .Height = Me.ScaleHeight
   End With
End Sub

Private Sub Form_Resize()
  setPanel
End Sub