Metodo congruencial multiplicativo en visual basic - Numeros aleatorios

Hola amigos espero tengan un excelente día, aquí la continuación de los números aleatorios en este caso sera el método congruencial multiplicativo.

Crean una ventana o interfaz como quieran llamarle parecida a esta:

 Donde contendrá los numero de periodos, la semilla , y las dos constantes K y G

bien ahora en el botón generar pondrán el siguiente código:

los nombres de las variables son para el textbox numero de pedidos es text1, para el textbox semilla es semilla para el textbox k es textk, para el textbox G es testg, el textbox grande de en medio es text3 y por ultimo el textbox de abajo es text4
Public Class ventanaCmulti
    Private Sub Gcm_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gcm.Click
Utilizaremos 5 variables 1 de tipo integer y 4 de tipo double
        Dim n_periodo As Integer
        Dim multiplicar As Double
        Dim nuevo_multi As Double
        Dim a As Double
        Dim m As Double
        n_periodo = text1.Text
        For i = 1 To n_periodo
            a = 5 + 8 * textk.Text
            m = 2 ^ textg.Text

            multiplicar = (a * semilla.Text) Mod m
            text4.Text = multiplicar

            nuevo_multi = text4.Text
            semilla.Text = nuevo_multi
            text3.Text = text3.Text & vbCrLf & "Periodo  [" & i & "]  " & text4.Text & ""
            If i = n_periodo Then
                Label1.Text = "Resultado:"
            End If
        Next i
    End Sub
Boton de limpiar
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        text1.Clear()
        text3.Clear()
        text4.Clear()
        semilla.Clear()
        textk.Clear()
        textg.Clear()

    End Sub
Boton de salir

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form1.Show()
        Me.Hide()

    End Sub
End Class
 Descarga el proyecto aquí:
https://ouo.io/QABD8X