vb6 当其他应用全屏时自动隐藏窗体

你可以使用API函数来实现这个功能。具体步骤如下：

1. 在窗体的模块中声明以下API函数：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

2. 在窗体的Load事件中添加以下代码：

Private Sub Form_Load()
    Timer1.Interval = 1000 '设置计时器的时间间隔，单位为毫秒
    Timer1.Enabled = True '启动计时器
End Sub

3. 在窗体中添加一个计时器控件Timer1，并设置其Enabled属性为False，Interval属性为1000。

4. 在计时器的Tick事件中添加以下代码：

Private Sub Timer1_Timer()
    Dim hWnd As Long
    hWnd = FindWindow(vbNullString, "其他应用程序的标题") '将“其他应用程序的标题”替换成你要隐藏的应用程序的窗口标题
    If hWnd <> 0 Then '如果找到了窗口
        ShowWindow Me.hwnd, vbHide '隐藏当前窗口
    Else '如果没有找到窗口
        ShowWindow Me.hwnd, vbNormal '显示当前窗口
    End If
End Sub

5. 将“其他应用程序的标题”替换成你要隐藏的应用程序的窗口标题。

这样，当其他应用程序全屏时，你的窗体会自动隐藏。当其他应用程序恢复正常大小时，你的窗体会自动显示。