Private Sub cmdOk_Click() Screen.MousePointer = vbHourglass If mSkinnerControl.Skin = skAuto_ReadFromRegistry Then Skinner1.SaveValuesToRegistry mSkinnerControl.CargarValuesDelRegistro Else If Skinner1.Skin = skCreateFromPicture Then Set mSkinnerControl.SkinPicture =_ Skinner1.SkinPicture Else mSkinnerControl.TitleBarSkin =_ Skinner1.TitleBarSkin mSkinnerControl.TitleBarForeColor =_ Skinner1.TitleBarForeColor mSkinnerControl.BodySkin = Skinner1.BodySkin mSkinnerControl.BodyForeColor =_ Skinner1.BodyForeColor End If End If Hide Unload Me Screen.MousePointer = vbDefault End Sub
Added (25 February 12, 12:38 PM) ---------------------------------------------