picturebox的line畫的方形顯示不出來,很簡單的

各位高手幫我看看,為甚麼畫的方形顯示不出來,是不是和位數,picturebox的currentX,currentY屬性有關,界面只有一個picturebox控件,請給我詳細回答一下,不勝感激!tanks!
Private Sub Form_Load()
   Dim cell_width As Integer
   Dim cell_height As Integer
   Dim i As Integer
   Dim die_count As Integer
   Dim a(1 To 26) As Integer
 
   
   die_count = 25
   cell_width = Picture1.Width / die_count
   cell_height = Picture1.Height / 10
   sum = 0
  
   For i = 1 To 25
      a(i) = i
      sum = sum + a(i)
   Next i
   Picture1.AutoRedraw = True
   Picture1.DrawWidth = 2 
   
   For i = 1 To 25
       Picture1.Line (i * cell_width - 50, a(i) * 1000 + 50)-(i * cell_width + 50, a(i) * 1000 - 50), vbRed, BF
   Next i
   
End Sub