像MessageBox一样在外部单击表单

Question

  Using modules As Modules = New Modules With {.Location = New Point With {.X = Location.X + 100, .Y = Location.Y + 200}}
        modules.ShowDialog(Me)
    End Using

是否有一种方法可以使我像MessageBox一样在表单外部单击时以对话框形式闪烁？当我说眨眼时，也许我可以更改“面板”标题的颜色。但是如何将其与sound一起捕获？