Public Class Singleton
    Private Shared formMain As frmMain
    Private Shared formAbout As frmAbout
    Private Shared formInfoWin As frmInfoWin
    Private Shared objModString As ModString
    Private Shared objLagerAnfrage As LagerAnfrage
 
    Public Shared Function GetFormMain() As Form
        If formMain Is Nothing Then
            formMain = New frmMain()
        End If
        Return formMain
    End Function
.....

__________________________________________________________
www.steffen-blogging.de
Ich bin Synoroot und das ist gut so! =D

Beitrag wurde zuletzt am 14.12.09 um 16:36:10 editiert.