1 files changed, 19 insertions, 0 deletions
diff --git a/shiftos_next/basicwm_infobox.vb b/shiftos_next/basicwm_infobox.vb
new file mode 100644
index 0000000..e4ffa55
--- /dev/null
+++ b/shiftos_next/basicwm_infobox.vb
@@ -0,0 +1,19 @@
+Public Class basicwm_infobox
+
+    Public userinput As String
+
+    Public Sub showinfo(title As String, message As String, Optional showtextbox As Boolean = False)
+        lbtitle.Text = title
+        lbmessage.Text = message
+        btnok.Text = "> OK <"
+        txtuserinput.Visible = showtextbox
+        Me.StartPosition = FormStartPosition.CenterScreen
+        Me.TopMost = True
+        Me.ShowDialog()
+    End Sub
+
+    Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click
+        userinput = txtuserinput.Text
+        Me.Close()
+    End Sub
+End Class
+\ No newline at end of file