DoNet默认的msgbox显示位置只能是屏幕中间，字体为宋体

我封装了一个可以设置显示位置和字体的消息框，用APi来实现的，其参数和msgbox一样

用法是：

    Dim pm As New wsMsgBoxSetting
    pm.Location = 你的位置      ''设置位置
    pm.MsgFont = 你的字体      ''设置字体
    pm.Show("文本", "标题")

还可以使之居于某个窗体中间：pm.CenterToForm(你的form)