как правильно вызвать sub?

Private Sub Form_Load()
  Randomize Timer
  Picture1.ScaleHeight = 1000
  Picture1.ScaleWidth = 1000
  Picture1.AutoRedraw = True
  Load_LeveL_1
 
  Draw player, CountOBlocks, b, C1
End sub
Sub Load_LeveL_1()
 Dim player As Blocks
 CountOBlocks = 2
 Dim b(1) As Blocks
 
 
  With b(0)
 .x1 = 0: .y1 = 0: .x2 = 0: .y2 = 100: .x3 = 100: .y3 = 100: .x4 = 100: y4 = 0: .color = vbRed
 End With
 With b(1)
 .x1 = 900: .y1 = 100: .x2 = 900: .y2 = 100: .x3 = 1000: .y3 = 100: .x4 = 1000: y4 = 0: .color = vbRed
 End With
 With player
  .x1 = 400: .y1 = 800: .x2 = 400: .y2 = 900: .x3 = 600: .y3 = 900: .x4 = 600: .y4 = 900: .color = vbBlack
 End With
 With C1
  .x = 500: .y = 785: .rad = 15: .color = vbGreen
 End With
 End Sub
 
Private Sub Draw(PL As Blocks, count As Integer, WB() As Blocks, c As Circles)
  For i = 0 To count - 1
  Picture1.Line (WB(i).x1, WB(i).y1)-(WB(i).x2, WB(i).y2), WB(i).color
  Picture1.Line (WB(i).x2, WB(i).y2)-(WB(i).x3, WB(i).x3), WB(i).color
  Picture1.Line (WB(i).x3, WB(i).y3)-(WB(i).x4, WB(i).y4), WB(i).color
  Picture1.Line (WB(i).x4, WB(i).y4)-(WB(i).x1, WB(i).x1), WB(i).color
  Next i
  Picture1.Line (PL.x1, PL.y1)-(PL.x2, PL.y2), PL.color
  Picture1.Line (PL.x2, PL.y2)-(PL.x3, PL.x3), PL.color
  Picture1.Line (PL.x3, PL.y3)-(PL.x4, PL.y4), PL.color
  Picture1.Line (PL.x4, PL.y4)-(PL.x1, PL.x1), PL.color
  Picture1.Circle (c.x, c.y), c.rad, c.color
 
 
 End Sub