Public Sub ExecShow()
    dim i as single
    boolkeypress = True
    lblLeft.Caption = Txt1(1, 0)
    lblRight.Caption = Txt1(2, 0)
    i = 1
    Do
        If boolkeypressThen
            lblMid.Caption = Txt2(i,0)           'hier soll nach Drücken der 
            ' Space Taste jeweils ein neuer Text stehen
            KeyLeft = False
        Else
            Do
                DoEvents
            Loop Until KeyLeft
        End If
        i = i + 1
    Loop Until i = 21
End Sub
 
Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeySpace then
        KeyLeft = True
        Label1.Caption = KeyAscii
    End If
End Sub