ReadStatus(ByVal xWrite As Integer)             Dieses Ereignis wird beim schreiben von Daten mit AddText, AddData etc. mit jedem Fortschritt in % ausgelöst.
            Private Sub JRStegano1_WriteStatus(xWrite As Integer)                         Command2.Caption = Str$(xWrite) + "%"             End Sub |