Función WriteRectangle Ejercicio VB.Net - Curso de Programación Visual Basic

Imports System
Public Class exercise129
    Private Shared Sub WriteRectangle(ByVal width As Integer, ByVal height As Integer)
        For i As Integer = 0 To width

            For j As Integer = 0 To height
                Console.Write("*")
            Next

            Console.WriteLine()
        Next
    End Sub

    Private Shared Sub WriteHollowRectangle(ByVal width As Integer, ByVal height As Integer)
        For i As Integer = 1 To height

            For j As Integer = 1 To width

                If (i = 1) OrElse (i = height) Then
                    Console.Write("*")
                Else

                    If (j = 1) OrElse (j = width) Then
                        Console.Write("*")
                    Else
                        Console.Write(" ")
                    End If
                End If
            Next

            Console.WriteLine()
        Next
    End Sub

    Private Shared Sub Main(ByVal args As String())
        WriteRectangle(4, 3)
        Console.WriteLine()
        WriteHollowRectangle(3, 4)
        Console.ReadLine()
    End Sub
End Class