KeyPresss "Down", 1
        起点X坐标 = 起点X坐标 + 18
    End If
End Sub
Sub P点设置()
    检测按键 = GetLastKey()
    //检测按键上次按过的键
    If 检测按键 = 107 Then 
        向前面搜索 = 向前面搜索 - 1
        //等与"+"键 P点位置-1象素
    ElseIf 检测按键 = 109 Then
        向前面搜索 = 向前面搜索 + 1
        //等与"-"键 P点位置+1象素
    End If
    //注意一下...这里我可是没有搞反的
    检测按键 = ""
    //变量清空  
End Sub