初学VB，不知道我这个程序哪里错了

VB code

Module Module1    Sub Main()        Dim i, j, n As Integer        i = 0        Do While i <= 9            j = 0            Do While j <= 9                n = 10407 + 1000 * i + 10 * j                If n Mod 57 = 0 Or n Mod 67 = 0 Then                    Print(n)                End If                j = j + 1            Loop            i = i + 1        Loop    End SubEnd Module

VB code

Private Sub Form_Click()        Dim i, j, n As Integer        i = 0        Do While i <= 9            j = 0            Do While j <= 9                n = 10407 + 1000 * i + 10 * j                If n Mod 57 = 0 Or n Mod 67 = 0 Then                    Print (n)                End If                j = j + 1            Loop            i = i + 1        LoopEnd Sub
[解决办法]
应该建什么工程啊？

建立WINFORM工程
[解决办法]
VB.NET code
Module Module1    Sub Main()        Dim i, j, n As Integer        i = 0        Do While i <= 9            j = 0            Do While j <= 9                n = 10407 + 1000 * i + 10 * j                If n Mod 57 = 0 Or n Mod 67 = 0 Then                    System.Console.WriteLine(n)                End If                j = j + 1            Loop            i = i + 1        Loop    End SubEnd Module
[解决办法]
 Print(n)用其他试试。