Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
......
......
For i = 0 To 2
Value(i) = Int(Rnd * 6)
BitBlt picValue(i).hDC, 0, 0, 32, 32, Picture1.hDC, Value(i) * 32, 0, vbSrcCopy
Next

......
......
　　前面过程我省略了，大体意思就是将　Picture1的图片随机切割６分，分到３个数组控件picValue中．
但是我不明白的事就是图片的实际width是2880，height是480，而函数中红色部分是32的大小切割，
我不明白bitblt函数中分割方式是以什么为单位的，请高手指教下，谢谢！

Pixel 的單位.
默認情況下 VB 是以 vbTwips 爲單位的, 可以先將 ScaleMode 屬性設置爲 vbPixels

好的谢谢

嘿嘿，yeshirow真是厉害啊，到处能看到你救火呢！