S = chkHideS
    .chkSoft = chkSoft
    .updTransparency = updTransparency
    .chkVisible = chkVisible
  
    .chkFadeIn = chkFadeIn
    .updFadeIn = updFadeIn.Value
    .chkFadeOut = chkFadeOut
    .updFadeOut = updFadeOut
  End With
    
  Call frm.Show(vbModeless)
End Sub

Private Sub cmdColor_Click()
  On Error GoTo Catch
  
  With dlgColor
    .CancelError = True
    .Color = lblColor.BackColor
    .DialogTitle = "Shadow Color"
    .ShowColor
    Shadow.Color = .Color
    lblColor.BackColor = .Color
 