' Imports for using

Imports System

​

' Module for namespace

Public Module Module1

​

    Dim Triangle As Shape = new Shape()

​

    Public Sub Main()

        Triangle.sides = 4

        Console.WriteLine("Hello World")

        Console.WriteLine(Triangle.sides.ToString())

        Triangle.Calculate("Hi")

    End Sub

End Module

​

Public Module Module2

​

    Public Class Shape

​

        Public Property sides As Integer

​

        'Sub instead of void

        Public Sub Calculate(str As String)

            Console.WriteLine(str)

        End Sub

​

        'Function for a return method

        Public Function GetHeight() As Integer

            Return 5

        End Function

    End Class

        Public Class Maths

            Dim Triangle As Shape = new Shape()

            Public Sub IfStatements(sides As Integer)

                Dim x As Integer = 0

                If  x = 3 Then 

                    Triangle.sides = 3

                End If

            End Sub

        End Class

End Module

​