tl32.dll" () As Long

Private Sub Form_Initialize()
  InitCommonControls
End Sub

Private Sub Form_Load()
  With Shadow
    chkSoft.Value = IIf(.SoftShadow, vbChecked, vbUnchecked)
    chkHideM.Value = IIf(.HideMove, vbChecked, vbUnchecked)
    chkHideS.Value = IIf(.HideSize, vbChecked, vbUnchecked)
    chkVisible.Value = IIf(.Visible, vbChecked, vbUnchecked)
    chkFadeIn.Value = IIf(.FadeIn, vbChecked, vbUnchecked)
    chkFadeOut.Value = vbChecked
    lblColor.BackColor = .Color
    updDepth.Value = .Dept