Attribute VB_Name = "OpenOpts"
Global gfOpenOptsGo As Integer
Global gcOpenOptsFile As String
Global gnOpenOptsBits As Integer

Sub OpenOptsGetOptions(fGo As Integer, fPaint As Integer, nBits%, nPage%)
    fGo = gfOpenOptsGo
    If OpenOptsFrm.PaintWhileLoad.Value = 1 Then
        fPaint = True
    Else
        fPaint = False
    End If
    nBits = gnOpenOptsBits
    nPage = CInt(OpenOptsFrm.PageNumberBox.Text)
End Sub

Sub OpenOptsInitTheForm(FileName$, fPaint As Integer)
gcOpenOptsFile = FileName
gfOpenOptsGo = False
If fPaint Then
  OpenOptsFrm.PaintWhileLoad.Value = 1
Else
  OpenOptsFrm.PaintWhileLoad.Value = 0
End If
OpenOptsFrm.PageNumberBox.Text = "1"
OpenOptsFrm.Bit(0).Value = True
End Sub