delegates - デリゲート用のプログラム (デリゲートを使用して 2 と 3 でカウントするプログラムを作成) が機能しない

Question

したがって、このプログラムは何も出力してconsole.writeline()いません。それは、配置する必要があるためだと思いますが、どこに配置するか、何を(). これまでのプログラムは次のとおりです。

Module Module1
Public Delegate Sub MyDelegate()
Sub Main()
    Dim Fns As MyDelegate
    Fns = New MyDelegate(AddressOf FnsTwos)
    Fns()
    Fns = New MyDelegate(AddressOf FnsThrees)
    Fns()
End Sub
Sub FnsTwos()
    Dim x As Integer
    x = x + 2
    Do While 0 < x < 100
    Loop
    Stop
End Sub
Sub FnsThrees()
    Dim x As Integer
    x = x + 3
    Do While 0 < x < 100
    Loop
    Stop
End Sub
End Module