Vb.net 编写一个程序，使用事件只打印6到16之间的偶数

正如你所看到的，我是编程新手。我需要添加一个事件。我们正在学习有关活动的知识，但实际上没有任何帮助，我已经尝试使用互联网好几个小时了。我只是想学习。提前谢谢

Module Modulel

Public Event PrintThis(ByVal val as Integer)

SubMain()

Dim number as Integer = 6
While number <= 16
// PRINT Goes here .. ??? Not sure if right or code
number = number + 2
End While

模块模块
公共事件PrintThis（ByVal作为整数）
子蛋白（）
整数形式的数字=6
而下面的数字链接将使您清楚地了解事件。

如果有帮助，请告诉我。
像这样的东西应该可以用。您需要使用添加在调用时响应事件的方法

模块1
公共事件PrintThis（ByVal作为整数）
副标题（）
AddHandler PrintThis，PrintThis方法的地址
整数形式的数字=6
While number您希望使用什么类型的事件？按钮。点击事件？讲师是否提供了关于要使用的“事件”的材料？（事件通常被调用以响应某些外部输入或更改；在这里使用一个事件……有点愚蠢。但是如果目标只是“填充代码”，那么“调用PrintThis事件”；通常使用一个防护来防止空事件。）他没有告诉我们一个特定的事件，就像我在代码中输入的一样，这可能没有什么意义。我试图把它融入到我已经写过的代码中。如果我可以这样声明一个事件：Accessspecifier event evtName（参数）在上面的语法中，Accessspecifier指定事件的范围。它可以是公共保护的，也可以是私人的。Event是声明事件的关键字。evtName是事件的名称，参数是传递给处理事件的函数的值。
Module Module1
    Public Event PrintThis(ByVal val As Integer)
    Sub Main()

        AddHandler PrintThis, AddressOf PrintThisMethod
        Dim number As Integer = 6
        While number <= 16
            RaiseEvent PrintThis(number)
            number = number + 2
        End While
        Console.ReadLine()
    End Sub

    Private Sub PrintThisMethod(val As Integer)
        Console.WriteLine(val)
    End Sub

End Module