کار با تاچ پنل

[alibaike 2]

سلام دوستان یه مشکلی داشتم من دوتا پنل رو روی هم انداختم و برای هر کدام یه عکس دادم  و برای پنل بالایی از canvas استفاده کردم یه ماژول ساختم ازس استفاده میکنم ار اکتیویتی هام و با پاک کردن پنل بالایی پنل پایینی ظاهر میشه حالا میخوام وقتی پنل بالایی کاملا پاک شد و پنل پایینی کاملا دیده شده یه پیزی مثل جیفت و... رو به صورت چند ثانیه ای نمایش بدم و بعد برگردم به همون اکتیویتی اگه راهنماییم کنید لطف میکنید کد ماژول هم اینه 

Sub Process_Globals
    Dim x1,y1
    Type DrawData(canvas As Canvas,Panel As Panel,DrawColor As Int,DrawWidth As Int)
End Sub

Sub Panel_Touch(DD As DrawData,x As Int,y As Int,Action As Int)
    If Action=0 Then
        x1=x
        y1=y
    Else
        DD.canvas.DrawLine(x1,y1,x,y,DD.DrawColor,DD.DrawWidth)
        DD.Panel.Invalidate
        x1=x
        y1=y
    End If
End Sub

در اکتیویتی ها هم با این خط کد پنل رو پاک میکنم

    draw.Panel_Touch(DD,X,Y,Action)

؟