VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Demo1Form Caption = "Demo1 " ClientHeight = 3225 ClientLeft = 45 ClientTop = 330 ClientWidth = 4710 OleObjectBlob = "Demo1Form.frx":0000 StartUpPosition = 1 'CenterOwner End Attribute VB_Name = "Demo1Form" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub CalcButton_Click() TestDemo1Form End Sub