ReadStatus(ByVal xRead As Integer)             Dieses Ereignis wird beim lesen von Daten mit GetText, GetData etc. mit jedem Fortschritt in % ausgelöst.
|
xRead |
Fortschritt in % |
||
            Private Sub JRStegano1_ReadStatus(xRead As Integer)
                        Command2.Caption = Str$(xRead) + "%"
                        If xRead = 100 Then Command2.Caption = "Lesen"
            End Sub