frmprogress.frm

CATIA二次开发

VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmProgress 
   Caption         =   "正在计算，请稍候..."
   ClientHeight    =   1365
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4740
   OleObjectBlob   =   "frmProgress.dsx":0000
End
Attribute VB_Name = "frmProgress"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub UserForm_Initialize()
    Me.Move Screen.Width - Me.Width - 1000, Screen.Height - Me.Height - 1000
    MakeMeOnTop Me.hwnd
End Sub