
Originally Posted by
bPrice
That's not newbie-friendly at all...
If it isn't for newbie then i can't help anything:
Code:
Private Sub cmdNewWnd_Click()
Dim hThread As Long
Dim capt As String
Dim lpCapt As Long
capt = InputBox("Window title", "")
lpCapt = SysAllocString(StrPtr(capt))
hThread = vbCreateThread(0, 0, AddressOf NewThreadProc, lpCapt, 0, 0)
CloseHandle hThread
End Sub
Public Function NewThreadProc(ByVal value As String) As Long
Dim frm As Form
Set frm = New frmTest1
frm.Caption = value
frm.Show vbModal
End Function