Public Overloads Shared Function showDialog(ByVal sMessage As String, ByVal _
  sTitle As String, ByVal bMessageBoxButtons As MessageBoxButtons, ByVal iImage _
  As Image, Optional ByVal sError As String = Nothing) As DialogResult
        lblMessage.Text = sMessage
        Me.Text = sTitle
        Return MyBase.ShowDialog()
    End Function