循环另一个函数名

Question

i have:

  Public Function Position1 (button, blabla)
     button.location = New Point(3,9)
  Return blabla
  End Function
  Public Function Position2 (button, blabla)
      button.location = New Point(3,50)
  Return blabla
  End Function
  Public Function Position3 (button, blabla)
      button.location = New Point(3,91)
  Return blabla
  End Function

等等，直到Function Position100

我想调用这些函数，并使代码更简单的循环"For ....下一个"

所以请告诉我修复这个代码:

  Private Sub Button1_Click and so on....
  For x = 1 to 100
     positionx(button1,"filled")
  Next
  End Sub 

Answer 1

将点坐标作为参数添加到一个函数中，并有一个点列表来迭代…