Private Sub cmdPrüfen_Click()
  Dim alleSCCP() As String
  Dim I As Integer
 
  alleSCCP = Reg_GetAllKeys(HKEY_LOCAL_MACHINE, _
    "Software\SourceCodeControlProvider\InstalledSCCProviders")
 
 
  If IsArray(alleSCCP) Then
 
  For I = 0 To UBound(alleSCCP)
  lblSCCProviderInstalled.Caption = alleSCCP(I)
 
  Next I
 End If
 End Sub

 If alleSCCP() = "Microsoft Visual SourceSafe" Then
 mnuQuellcodeverwaltung.Visible = True
 mnuQuellcodeverwaltung.Caption = SourceSafe
 End If