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