Imports System

Imports System.Web.Mvc

Imports System.Collections.Generic

Imports System.Globalization

Namespace HelloWorldMvcApp

​

    Public Class HomeController

        Inherits System.Web.Mvc.Controller

​

        <HttpGet>

        Function Index() As ActionResult

            ViewBag.Lettre = "F"

        Dim france = CultureInfo.GetCultureInfo("fr-FR")

        ViewBag.France = france

        Return View(New SampleViewModel With { .Sucre = "soviet" })

    End Function

        <HttpGet> _

        Function Caca As String

            Return "lol c'est le caca au kolkoze"

        End Function

​

        Private Shared _rnd As Random = New Random()

​

        Private Shared _db As List(Of String) = New List(Of String) From {"Yes", "No", "Definitely, yes", "I don't know", "Looks like, yes"}

    End Class

End Namespace

​