problemer med Form hjælp

UPS:  denne kode var en fejl som jeg smidt ind  denne her vi vil have lavet om



Imports Microsoft.Win32

Public Class Form1

    ' Aktiveringsmappen. Du kan selvfølgelig ændre den til noget andet.
    Private Const aktiveringsMappe As String = "nielle2"

    ' Aktiveringsnøglen. Du kan selvfølgelig ændre den til noget andet.
    Private Const aktiveringsNøgleNavn As String = "nøgle"
    Private Const aktiveringsNøgleVærdi As String = "728949"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim registreret As Boolean = TjekForAktivering()

        If Not registreret Then
            If MessageBox.Show("Du kører en demoversion. Ønsker du at registrere den?", "Demoversion", MessageBoxButtons.OKCancel, MessageBoxIcon.Information) = System.Windows.Forms.DialogResult.OK Then
                Dim foreslåetAktiveringsNøgleVærdi As String = InputBox("Indtast din registringsnøgle:")
                foreslåetAktiveringsNøgleVærdi = foreslåetAktiveringsNøgleVærdi.Trim()

                If foreslåetAktiveringsNøgleVærdi = aktiveringsNøgleVærdi Then
                    AktiverProgram()
                Else
                    MessageBox.Show("Aktiveringsnøglen var ikke korrekt.")
                End If
            End If
        End If
    End Sub

    ' Tjek for aktivering. Returnere True hvis programmet er registreret, ellers False.
    Private Function TjekForAktivering() As Boolean
        ' Åbn mappen "\\HKEY_LOCAL_MACHINE".
        Dim localMachineNøgle As RegistryKey = Registry.LocalMachine

        ' Åbn undermappen "SOFTWARE\nielle" ... hvis den findes.
        Dim aktiveringNøgle As RegistryKey = localMachineNøgle.OpenSubKey("SOFTWARE\" & aktiveringsMappe)

        If aktiveringNøgle Is Nothing Then
            ' Den fantes ikke ...
            Return False
        Else
            ' Den fantes.

            ' Læs værdien af nøglen med navn "nøgle" ... hvis den findes.
            Dim læsteAktiveringsNøgleVærdi As String = aktiveringNøgle.GetValue(aktiveringsNøgleNavn)
            If læsteAktiveringsNøgleVærdi Is Nothing Then
                ' Den fantes ikke ...
                Return False
            Else
                ' Den fantes.

                ' Tjek om værdien af den er korrekt.
                If Not ValiderAktivering(læsteAktiveringsNøgleVærdi) Then
                    Return False ' Det var ikke den rigtige værdi ... udskriv besked.
                End If
            End If

            Return True    ' Nøglen fantes, og den var korrekt.
        End If
    End Function

    ' Hjælpefunktion til TjekForAktivering().
    Private Function ValiderAktivering(ByVal læsteAktiveringsNøgleVærdi As String) As Boolean
        If læsteAktiveringsNøgleVærdi = aktiveringsNøgleVærdi Then
            Return True
        Else
            Return False
        End If
    End Function

    ' Opret aktivering.
    Private Sub AktiverProgram()
        ' Åbn mappen "\\HKEY_LOCAL_MACHINE".
        Dim localMachineNøgle As RegistryKey = Registry.LocalMachine

        ' Åbn undermappen "SOFTWARE" med skriverettigheder.
        Dim softwareNøgle As RegistryKey = localMachineNøgle.OpenSubKey("SOFTWARE", True)

        ' Opret undermappen "nielle".
        Dim aktiveringsNøgle As RegistryKey = softwareNøgle.CreateSubKey(aktiveringsMappe)

        ' Opret en nøgle i mappen, med det korrekte navn og den korrekte værdi.
        aktiveringsNøgle.SetValue(aktiveringsNøgleNavn, aktiveringsNøgleVærdi)
    End Sub

End Class

Hejza. Vil bare lige sige så i er helt klar over det. Det er ikke mig der skriver denne tråd. Jeg har givet denne kode som jeg selv sidder og leger med til en ven.

Ved mig køre det perfekt jeg kan dog heller ikke fjern den ondsvage Form1. Men eller har jeg ikke ander problemer ind jeg ikke kan skjule eller lukke den form1 som han også har problemer med. Madslshar fler problemer ind jeg har så det er ham der skal have hjælp og ikke mig. :)

Så sedder jeg så selv og arbejder med at få den form1 væk. jeg har fået nok afvide af nielle. :)

Lukket