Public Class MyFormSingleton
   Private instance As MyForm
   Private Sub New()
   End Sub
   Public Function GetInstance() As MyForm
      If instance = Nothing Then instance = new MyForm()
      Return instance
   End Function
End Class

Ralf