以下代码执行的时候出现错误“cell尺寸太小，至少为1*1像素该怎么修改呢”
Private incounter As Integer

Private Sub Form_Load()
incounter = 0



PictureClip1.Cols = 1
PictureClip1.Rows = 4
PictureClip1.Picture = LoadPicture("C:\31-141-6765-141-1954-153-20061120051111.bmp")


Timer1.Interval = 300

End Sub

Private Sub Timer1_Timer()
incounter = incounter + 1
PictureClip1.Picture = PictureClip1.GraphicCell(i)
If incounter > 3 Then incounter = 0