Imports System
Public Class Program
Public Shared Sub Main()
Dim arr As Integer() = New Integer() {4, 7, 2, 9, 3}
Dim arr_size As Integer = arr.Length
Dim first As Integer = arr(0)
For i As Integer = 0 To arr_size - 1 - 1
arr(i) = arr(i + 1)
Next
arr(arr_size - 1) = first
For i As Integer = 0 To arr_size - 1
Console.Write(arr(i) & " ")
Next
End Sub
End Class
' run:
'
' 7 2 9 3 4
'