Private Sub cmdS_PopUp_Click()
        'DoCmd.OpenForm
        Dim bolSet As Boolean
        Dim intBorderstyle As Integer

        DoCmd.OpenForm fCurrentForm.Name, acDesign

            bolSet = Me.cPopUp
                fCurrentForm.PopUp = bolSet
            bolSet = Me.cAutoCenter
                fCurrentForm.AutoCenter = bolSet
            bolSet = Me.cAutoResize
                fCurrentForm.AutoResize = bolSet
      '        bolSet = Me.cFitToScreen
      '        ''    fCurrentForm.FitToScreen = bolSet
            bolSet = Me.cModal
               fCurrentForm.Modal = bolSet
           intBorderstyle = Me.cmbBorderStyle
              fCurrentForm.BorderStyle = intBorderstyle
       DoCmd.OpenForm fCurrentForm.Name
       Me.SetFocus
End Sub