用ShowWindow函数啊
Private Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOWNOACTIVATE = 4Private Sub Command2_Click()
ShowWindow Form2.hwnd, SW_SHOWNOACTIVATE
End Sub
Private Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOWNOACTIVATE = 4Private Sub Command2_Click()
ShowWindow Form2.hwnd, SW_SHOWNOACTIVATE
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货