Private Sub chkHideS_Click()
  Shadow.HideSize = (chkHideS.Value = vbChecked)
End Sub

Private Sub chkSoft_Click()
  Shadow.SoftShadow = (chkSoft.Value = vbChecked)
End Sub

Private Sub chkVisible_Click()
  Shadow.Visible = (chkVisible.Value = vbChecked)
End Sub

Private Sub cmdChild_Click()
  Dim frm As frmMain
  
  Set frm = New frmMain
  Call Load(frm)
  
  With frm
    .lblColor.BackColor = lblColor.BackColor
    .Shadow.Color = Shadow.Color
    .updDepth = updDepth
    .chkHideM = chkHideM
    .chkHide