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

[Mary_]

Hola, lo q pasa q ahora no sé como utilizarlo pq no m funciona.
Yo inicialmente tenía en cada botón de la barra de herramientas:

case 1

Dim frmSeleccion As New Form4
frmSeleccion.sql = "select idejercicio,nombre,finalidad from Ejercicios"
frmSeleccion.tabla="Ejercicios"
frmSeleccion.Show

Si esto lo sustituyo por:

case 1

dim frmSeleccion as new Form4
frmSeleccion.sql = "select idejercicio,nombre,finalidad from Ejercicios"
frmSeleccion.tabla = "Ejercicios"
frmSeleccion = CType(AbrirVentana(GetType(Form4)), Form4)


Estoy probando cosas pero luego m da error en el formulario frmSeleccion a la hora de llenar el dataset pq no le llega la variable tabla.

Gracias.