Показать одну из 30 форм проекта, выбранную случайно

Dim rnd As New Random()
Dim frm() As Form = {Me, Form2, Form3}
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
frm(rnd.Next(1, 3)).Show()
End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Устанавливаем русскую раскладку
        System.Windows.Forms.InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(System.Globalization.CultureInfo.GetCultureInfo(1049))
        Info()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Устанавливаем английскую раскладку
        System.Windows.Forms.InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(System.Globalization.CultureInfo.GetCultureInfo(1033))
        Info()
    End Sub
 
    Sub Info() 'Отображаем текущую раскладку для нашего окна и установленные языки
        Me.Label1.Text = "Активная раскладка: " & System.Windows.Forms.InputLanguage.CurrentInputLanguage.LayoutName
        Me.Label1.Text = Me.Label1.Text & vbCrLf & "Активный язык ввода: " & System.Windows.Forms.InputLanguage.CurrentInputLanguage.Culture.NativeName
        Me.Label1.Text = Me.Label1.Text & vbCrLf & vbCrLf & "Установленные языки:"
        For Each IL As System.Windows.Forms.InputLanguage In System.Windows.Forms.InputLanguage.InstalledInputLanguages
            Me.Label1.Text = Me.Label1.Text & vbCrLf & IL.Culture.NativeName
            Me.Label1.Text = Me.Label1.Text & vbCrLf & IL.Culture.LCID
        Next
    End Sub

Imports System.Runtime.Remoting
 
Public Class Form1
    Dim R As New Random
    Dim Frms As New List(Of String)
    Public Sub getallforms(ByVal sender As Object)
        Dim Forms As New List(Of Form)()
        Dim formType As Type = Type.GetType("System.Windows.Forms.Form")
        For Each t As Type In sender.GetType().Assembly.GetTypes()
            If UCase(t.BaseType.ToString) = "SYSTEM.WINDOWS.FORMS.FORM" AndAlso t.Name <> Me.Name Then
                Frms.Add(t.Name)
            End If
        Next
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Frms.Count > 0 Then
            Dim Rnd As Integer = R.Next(0, Frms.Count - 1)
            Dim formTypeName As String = "WindowsApplication1." & Frms(Rnd)
            Dim h As ObjectHandle = Activator.CreateInstance(Nothing, formTypeName)
            Dim f As Form = CType(h.Unwrap(), Form)
            f.Show()
            Frms.RemoveAt(Rnd)
        Else
            MsgBox("Формы и пиво закончились. Ступай в ларек")
        End If
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        getallforms(Me)
    End Sub
End Class

Imports System.Runtime.Remoting