Dim filename As String=""
		For i As Integer=0 To CDLL.GetProcessListCount()
			CDLL.ProcessListCreate(filename,i)
			If filename<>"" Then processlist.Items.Add(filename) 'processlist ist die 
' ComboBox
		Next

	Dim Shared files as String()
	Public Shared Function GetProcessListCount() as Integer
		files=system.IO.Directory.GetFiles(path,"*.dll")
		If IO.File.Exists(path+"app.dll") Then
			Return files.Length-2
		Else
			Return files.Length-1
		End If		
	End Function
 
	Public Shared Sub ProcessListCreate(ByRef Filename As String, ByVal i as _
  Integer)
		Dim temp As String
		files=system.IO.Directory.GetFiles(path,"*.dll")
		temp=files(i).Substring(files(i).LastIndexOf("\"c)+1)
		temp=temp.Substring(0,temp.Length-4)
		If temp<>"app" Then
			filename=temp
		End If
	End Sub