 End With
Catch:
End Sub

Private Sub updDepth_Change()
  Shadow.Depth = updDepth.Value
  lblDepth = " Depth: " &amp; updDepth.Value
End Sub

Private Sub updFadeIn_Change()
  Shadow.FadeTime = updFadeIn.Value
  lblFadeIn = " FadeIn: " &amp; updFadeIn.Value
End Sub

Private Sub updFadeOut_Change()
  lblFadeOut = " FadeOut: " &amp; updFadeOut.Value
End Sub

Private Sub updTransparency_Change()
  Shadow.Transparency = updTransparency.Value
  lblTransparency = " Transparency: " &amp; updTransparency.Value
End S