CalculateNewSize(ByVal DataSizeToStore As Long, ByVal NewWidth As Long, ByVal NewHeight As Long) As Variant            Calculate the new size of the picture to store xx bytes.             Syntax:                        JRStegano1.CalculateNewSize DataSizeToStore,NewWidth,NewHeight             Adjustments:                        
            Return Values:                        NewWidth the min width of the picture to store the datas.                         NewHeight the min height of the picture to store the datas. |