pts = New ThreadStart(AddressOf MyProcedure)
    myFirstThread = New Thread(pts)
    myFirstThread.Start()
 
    For per_i = 1 To n
      netz_Leer()
      For fig_i = 1 To k
        fig_index = perErgebnis(per_i, fig_i)
        figSetzen(fig_index, False)
      Next
      optimum_pruefen(per_i)
    Next

Private Sub MyProcedure()
    Form2.Label1.Text = "...Prozent"
End Sub