Added common message box function

2015-12-18 12:16:09 -06:00
parent 50cb987e9a
commit 8930f6d6cc
17 changed files with 114 additions and 108 deletions
@@ -125,4 +125,10 @@ Public Class mgrCommon
        oProcess.Start()
    End Sub

+    Public Shared Function ShowMessage(ByVal sMsg As String, ByVal oType As MsgBoxStyle) As MsgBoxResult
+        Dim oResult As MsgBoxResult
+        oResult = MsgBox(sMsg, oType, "Game Backup Monitor")
+        Return oResult
+    End Function
+
 End Class