MS_appLib

app/DD_PM_WINDREAM/frmError.vb

@@ -0,0 +1,24 @@
+Imports System.Windows.Forms
+
+Public Class frmError
+
+    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+        Me.Close()
+    End Sub
+
+    Private Sub frmError_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        Me.txterror.Text = My.Settings.errormessage
+        Me.Label1.Focus()
+        Me.Timer1.Start()
+    End Sub
+
+    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
+        If Me.OK_Button.Focused Then
+            Me.Label1.Focus()
+        End If
+    End Sub
+
+    Private Sub frmError_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
+        Me.Label1.Focus()
+    End Sub
+End Class