Public FormfrmCode As System.Windows.Forms.Form = New frmCode

  Public Sub unLoadfrmCode()
        Try
            FormfrmCode.Close()
        Catch ex As Exception
            MsgBox("An error has occured within the unloadfrmCode selection")
        End Try
    End Sub

dim frm as new your form
	For b As Integer = OpenForms.Count - 1 To 0 Step -1
            If OpenForms.Item(b).Text = "your form text" Then 'can also use .name
                frm = OpenForms.Item(b)
		exit sub
            End If
        Next

frm.close