在线等待：VB中调用Form.PrintForm打印Form,怎么样才能不出现“正在打印”的小对话框

VC中实现代码我倒是找到了，VB中该怎么处理这种情况： CRect rect;
GetClientRect(&rect);
CPrintDialog dlgPrint(FALSE,PD_NOPAGENUMS,this); dlgPrint.DoModal ();

CDC dc;
dc.Attach (dlgPrint.GetPrinterDC ()); DOCINFO di;
ZeroMemory(&di,sizeof(DOCINFO));
di.cbSize = sizeof(DOCINFO); CPrintInfo pi;
pi.m_rectDraw .SetRect (0,0,600,400); SetMapMode(dc.m_hDC ,MM_TEXT);
StartDoc(dc,&di); StartPage(dc);
Print(&dc,PRF_OWNED | PRF_CLIENT | PRF_CHILDREN  );
EndPage(dc);
EndDoc(dc); DeleteDC(dc);