Option Explicit
 
Private Sub Command1_Click()
B
End Sub
 
Private Sub Form_Load()
Me.Caption = 1
Timer1.Interval = 10
Timer2.Interval = 10
End Sub
 
Sub A()
MsgBox "In:A"
Do
    Me.Caption = Me.Caption + 1
Loop While DoEvents
MsgBox "Out:A"
End Sub
 
Sub B()
Dim C As Long
MsgBox "In:B"
Do
    C = C + 1: If C > 100 Then Exit Do
    Me.Left = Me.Left + 1
Loop While DoEvents
MsgBox "Out:B"
End Sub
 
Private Sub Timer1_Timer()
A 'Aufruf Sub A()
Timer1.Enabled = False
End Sub
 
Private Sub Timer2_Timer()
B 'Aufruf Sub B()
Timer2.Enabled = False
End Sub

???????????????????????????????????????????????????????????
e7o.de | jetzt (wirklich) neu!