Hola como estas,en c# hice lo siguiente:
Form1 frm;
frm = null;
Dentro del boton para abrir el formulario:
if (frm == null || frm.IsDisposed)
frm = new Form1(this);
else
frm.BringToFront();
frm.Show();
lo que podes hacer es traducirlo a VB...espero que te sirva, un saludo