WriteStatus(ByVal xWrite As Integer)             this event is fired at write data with Add text, Add DATA a.s.o             Return value:                        
            Private Sub JRStegano1_WriteStatus(xWrite As Integer)                         Command2.Caption = Str$(xWrite) + "%"             End Sub |