Public Module Program
	Public Sub Main(args() As string)
		Console.WriteLine("Hello, World!")
	End Sub
	
  Sub okno_komunikatu()
    tekst = "Kliknij dowolny klawisz" & vbCrLf
    tekst = tekst + "Aby zakończyć, kliknij PRZERWIJ"
    wyświetl:
      a = a + 1
    klik = MsgBox(tekst, vbAbortRetryIgnore, "Test klawiszy")
    Select Case klik
      Case vbRetry
          MsgBox "Kliknięto przycisk PONÓW PRÓBĘ": GoTo wyświetl
      Case 5
          MsgBox "Kliknięto przycisk IGNORUJ": GoTo wyświetl
      Case Else
          MsgBox "Procedurę powtórzono " & a & " razy." _
          & vbCrLf & "Dziękuję za współpracę", vbMsgBoxRtlReading
    End Select
  End Sub
End Module