ReadStatus(ByVal xRead As Integer)             this event is fired at read data with GET text, GET DATA a.s.o             Return value:                        
            Private Sub JRStegano1_ReadStatus(xRead As Integer)                         Command2.Caption = Str$(xRead) + "%"                         If xRead = 100 Then Command2.Caption = "Reading"             End Sub Return value: |