Dim lasta As Long 
Dim lastb As Long 
If KeyCode = vbKeyA Then 
Do 
    DoEvents
    lasta = a 
    lastb = b 
    a = a + 1 
    CurrentX = lasta 
    CurrentY = lastb 
    Print " " 
    CurrentX = a 
    CurrentY = b 
    Print "*" 
Loop