Private Sub DisableEnable()
        Dim myCheck As ToolStripMenuItem
        For Each myCheck In mnuFilter.DropDownItems
            If myCheck.Checked AndAlso myCheck.Enabled Then
                Return
            Else
                myCheck.Checked = False
                myCheck.Enabled = False
            End If
        Next
    End Sub

Public Sub Autobahn(ByVal Regen As Boolean)
If Regen Then
MessageBox.Show("SOFORT LICHT EINSCHALTEN!!!", "Achtung es regnet!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub