FormatStatus(ByVal xFormat As Integer, ByVal CancelFormat As Boolean)             Dieses Ereignis wird beim formatieren mit ClearAllData mit jedem Fortschritt in % ausgelöst.
|
xFormat |
Fortschritt in % |
||
CancelFormat |
Mit True kann der Formatiervorgang abgebrochen werden. |
||
Beispiel:            
Private Sub JRStegano1_FormatStatus(xFormat As Integer, CancelFormat As Boolean)
            Command12.Caption = Str$(xFormat) + "%"
            If xFormat = 100 Then Command12.Caption = "Formatieren"
End Sub