sub聲明 幫忙解釋下這段代碼的意思,
Sub xiex(startX As Single,endX As Single,_
startY As Single,endY As Single,Xstep As String,_
ystep As Single,picX As Single,picY As Single)
Picture1.Cls
Dim XX As Single
XX = startY + ystep
For i = startX To endX Step Xstep
XX = XX - ystep
BitBlt Picture1.hdc,i,XX,Picture1.Width,Picture1.Height,_
Hmemdc,picX,picY,vbSrcCopy
delay 0.01
Next i
DeleteObject OldDc
DeleteObject Hmemdc
End Sub