VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} p4vbform 
   Caption         =   "Test p4 from VB"
   ClientHeight    =   5100
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9330
   OleObjectBlob   =   "p4vbform.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "p4vbform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdClose_Click()
    Unload Me
End Sub
'    testp4vb arg1.Text, arg2.Text, arg3.Text, arg4.Text
'End Sub

Private Sub cmdRun_Click()
    p4vbrun cmd.Text, lbResult, UseStat
End Sub