Public Sub QueryStatus(ByVal commandName As String, ByVal neededText As _
   vsCommandStatusTextWanted, ByRef status As vsCommandStatus, ByRef _
   commandText As Object) Implements IDTCommandTarget.QueryStatus
        If neededText = vsCommandStatusTextWanted.vsCommandStatusTextWantedNone _
        Then
            If commandName = "Revers.Connect.Revers" Then
                status = CType(vsCommandStatus.vsCommandStatusEnabled + _
                  vsCommandStatus.vsCommandStatusSupported + _
                  vsCommandStatus.vsCommandStatusLatched, vsCommandStatus)
            Else
                status = vsCommandStatus.vsCommandStatusUnsupported
            End If
        End If
    End Sub
 
  Private Sub CreateNewFileWithCopyrightInfo()
 
       ' In dieser Zeile wird der Sub QueryStatus aufgerufen 
        _appObject.ItemOperations.NewFile(, , Constants.vsViewKindCode)
 
        Dim objDoc As TextDocument = CType(_appObject.ActiveDocument.Object, _
          TextDocument)
        Dim endPoint As EditPoint = CType(objDoc.StartPoint.CreateEditPoint, _
        EditPoint)
 
        endPoint.Insert("' This Code was created by Jungfrau Soft" & _
          ControlChars.NewLine & _
        "' Jungfrau Soft 3825 Mürren " & DateTime.Now.ToLongDateString())
 
    End Sub