h
    updTransparency.Value = .Transparency
    updFadeIn.Value = .FadeTime
    updFadeOut.Value = .FadeTime
    Debug.Print .IsSysShadowEnabled
    Debug.Print .IsSysFadeEnabled
  End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
  If Me.chkFadeOut = vbChecked Then
    Call Shadow.FadeOut(updFadeOut.Value)
  End If
End Sub

Private Sub chkFadeIn_Click()
  Shadow.FadeIn = (chkFadeIn.Value = vbChecked)
End Sub

Private Sub chkHideM_Click()
  Shadow.HideMove = (chkHideM.Value = vbChecked)
End Sub

