190930

Pilz/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

Pilz/Pilz.vbproj

@@ -46,6 +46,7 @@
   <ItemGroup>
     <Reference Include="System" />
     <Reference Include="System.Data" />
+    <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Xml" />
     <Reference Include="System.Core" />
     <Reference Include="System.Xml.Linq" />
@@ -64,6 +65,7 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="HelpfulFunctions.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
       <AutoGen>True</AutoGen>