Private Sub ShowBGForm()
 
Dim frm As Form
Dim bFormFound As Boolean
 
'Versatz in Höhe und Breite der vom frmMain abgezogen werden muss damit
'frmmain keine Scrollbalken anzeigt
Const versatzW As Integer = 175
Const versatzH As Integer = 1105
 
If frmMain.WindowState = vbMinimized Then
    Exit Sub
End If
 
For Each frm In VB.Forms
    If frm.Name = "frmBackGround" Then
        bFormFound = True
        Exit For
    End If
Next frm
 
If Not bFormFound Then
    frmBackGround.Show
End If
 
With frmBackGround
    .Top = 0
    .Left = 0
    If frmMain.Width > versatzW Then .Width = frmMain.Width - versatzW
    If frmMain.Height > versatzH Then .Height = frmMain.Height - versatzH
    .ZOrder 1
End With
 
End Sub