change UI to UI.WinForms

Pilz.UI.WinForms/HelpfulFunctions.vb

@@ -0,0 +1,17 @@
+Imports System.Windows.Forms
+
+Public Module HelpfulFunctions
+
+    Public Sub Sleep(milliseconds As Integer)
+        Dim stopw As New Stopwatch
+
+        stopw.Start()
+
+        Do While stopw.ElapsedMilliseconds < milliseconds
+            Application.DoEvents()
+        Loop
+
+        stopw.Stop()
+    End Sub
+
+End Module