Public Class Form1

    Dim brukernavn, passord As String
    Private Sub btnLoggInn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoggInn.Click
        brukernavn = txtNavn.Text
        passord = txtPassord.Text
        If lstBrukere.Items.Contains(brukernavn) Then
        Else : MsgBox("Wrong username.")
        End If

    End Sub
    Public Function Sjekkpassord(ByVal passord As String) As String

    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()

    End Sub
End Class

Public Class Form2

    Private Sub btnReverser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReverser.Click
        Dim reverser As String
        reverser = txtOrd.Text
        txtOrd.Text = erOrd(reverser) 'Her benyttes funksjonen erOrd for å reversere stringen i txtord.text, og sende den tilbake til samme tekstboks
    End Sub
    Function erOrd(ByVal str As String) As String
        If str Is String.Empty Then 'Dersom ingen ord er skrevet inn vil det "erstattes" med en blank string.
            Return String.Empty
        End If

        If str.Trim().Length() = 0 Then
            Return str
        End If

        Dim chars As Char() = str.ToCharArray() 'Her gjøres stringen om til et array
        Array.Reverse(chars) 'Her reverseres arrayet
        Return New String(chars) 'Her retuneres arrayet som en string
    End Function

    Private Sub btnBlank_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBlank.Click
        lstOrdliste.Items.Clear() 'Dette fjerner all info i ordlisten.
    End Sub

    Private Sub btnRegAvslutt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegAvslutt.Click
        If MsgBox("Vil du avslutte, og returnere til login?", MsgBoxStyle.YesNo) =
            DialogResult.Yes Then
            Me.Hide() 'Dette gjemmer registreringsskjemaet
            Form1.Show() 'Dette henter frem login-skjemaet igjen

        End If
    End Sub

    Private Sub btnRegistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegistrer.Click
        Dim x As Integer = -1, ord As String
        ord = txtOrd.Text 'Greide desverre ikke å skrive funksjonen erOrd slik at den også kunne sjekke stringen... Så måtte gjøre det slik for at det skulle fungere.
        x = lstOrdliste.FindString(txtOrd.Text) ' Her byttes verdien av x ut dersom et ord eksisterer i lstboxen.
            If x > -1 Then
            MsgBox("Ord eksisterer allerede, på linje " & x.ToString)
        Else
            lstOrdliste.Items.Add(ord)
            End If
    End Sub
End Class