Attribute VB_Name = "GetValue"
Global gfGetValueGo As Integer
Global gnGetValueValue As Integer

Sub GetValueGetUserSelections(fUserGo As Integer, nValue%, fChecked As Integer)
fUserGo = gfGetValueGo
nValue = gnGetValueValue
fChecked = False
If GetValueFrm.Resize_Horz.Enabled = True Then
  If GetValueFrm.Resize_Horz.Value = 1 Then
    fChecked = True
  Else
    fChecked = False
  End If
End If
End Sub

Sub GetValueInitTheForm(Title$, UnitType$, UnitMax%, UnitMin%, UnitInit%, LargeStep%, SmallStep%, ResizeHorz As Integer)
GetValueFrm.Caption = Title
GetValueFrm.GetValueType = UnitType
GetValueFrm.GetValueBar.Max = UnitMax
GetValueFrm.GetValueBar.Min = UnitMin
GetValueFrm.GetValueBar.Value = UnitInit
GetValueFrm.GetValueBox.Text = CStr(UnitInit)
GetValueFrm.GetValueBar.LargeChange = LargeStep
GetValueFrm.GetValueBar.SmallChange = SmallStep
gfGetValueGo = False
GetValueFrm.Resize_Horz.Value = 1
GetValueFrm.Resize_Horz.Visible = ResizeHorz
gfGetValueValueChanged = False
GetValueFrm.left = (Screen.Width - GetValueFrm.Width) / 2
GetValueFrm.top = (Screen.Height - GetValueFrm.Height) / 2
End Sub