Evitar que desde un botón se abra varias veces el mismo form

[Mary_]

Hola, muchas gracias. Ha funcionado n lo referente a q solo se abre una instancia y llegan ya los valores de las variables públicas a frmSeleccion pero no m hace lo q kiero pq aunq desde un botón de la barra de herramientas se abre un único formulario, desde los otros botones de la barra de herramientas no deja que se abran.

Yo estoy usando el mismo formulario frmSeleccion para todos los botones de la barra de herramientas pero este mismo formulario cambia dinámicamente según el botón que lo llame y entonces lo q kiero (q no se si se podrá) es q yo pueda llamar a una instancia de frmSeleccion a la vez desde cada botón pero una y solo una única instancia desde cada botón.

Saludos

Select Case ToolBar1.Buttons.IndexOf(e.Button)
Case 1 'Ejercicios
Dim frmSeleccion As Form4 = CType(AbrirVentana(GetType(Form4)), Form4)
frmSeleccion.sql = "select idejercicio,nombre,finalidad from Ejercicios"
frmSeleccion.tabla = "Ejercicios"
frmSeleccion.Show()

Case 2 'Proveedores
Dim frmSeleccion As Form4 = CType(AbrirVentana(GetType(Form4)), Form4)
frmSeleccion.sql = "select idproveedor,nombre,telefono1,telefono2 from Proveedores"
frmSeleccion.tabla = "Proveedores"
frmSeleccion.Show()

......