如何创建非模态对话框?

Question

请问大家
  如何创建非模态对话框?
(自己新建类似窗口除外)

Answer 1

Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Private Sub Command3_Click()
MessageBox 0, "你好", "标题", 0
End Sub

Answer 2

Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As LongMessageBox me.hWnd, "这是非模态对话框", "提示", 0