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

Private frmCfgOptions As frmConfigMethod
Private lOption As Long                     'holds the configuration option selected

Private Sub Class_Initialize()
    Set frmCfgOptions = New frmConfigMethod
    Load frmCfgOptions
End Sub

Public Function GetCfgOption(SwConfigRcvd As Byte, DppDevice As Integer) As Long
    On Error GoTo GetCfgOption_Err
    Load frmCfgOptions
    frmCfgOptions.SelectOptions SwConfigRcvd, DppDevice
    frmCfgOptions.Show vbModal
    lOption = frmCfgOptions.lOption
    GetCfgOption = lOption
    Exit Function
GetCfgOption_Err:
    GetCfgOption = -1   'generic error
End Function

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