VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "RunClass"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit

Private dlg As New dlgRun


Public Property Get CommandLine() As Variant
    CommandLine = dlg.CommandLine
End Property

Public Function Execute() As Variant
    Dim varHolder As Variant
    varHolder = dlg.Execute
    If VarType(varHolder) = vbError Then
        Execute = False
    Else
        Execute = varHolder
    End If
End Function

Public Function Run() As Variant
    Run = dlg.Display
End Function

Private Sub Class_Initialize()
    Load dlg
End Sub

Private Sub Class_Terminate()
    Unload dlg
    Set dlg = Nothing
End Sub
