1 2 3 4 5 6
Private Sub Neustart() Dim restart() As Process restart=Process.GetProcessesByName("winlogon") For Each process As Process In restart process.Kill() Next End Sub