Private Sub Timer1_Timer()
    Me.WindowState = vbNormal
End Sub
?

你指其他程序的窗口吗?

API:
ShowWindow(hWnd, SW_RESTORE)
如果SW_RESTORE不行，再试试其它的

 SW_HIDE
  隐藏窗口，活动状态给令一个窗口
  SW_MINIMIZE
  最小化窗口，活动状态给令一个窗口
  SW_RESTORE
  用原来的大小和位置显示一个窗口，同时令其进入活动状态
  SW_SHOW
  用当前的大小和位置显示一个窗口，同时令其进入活动状态
  SW_SHOWMAXIMIZED
  最大化窗口，并将其激活
  SW_SHOWMINIMIZED
  最小化窗口，并将其激活
  SW_SHOWMINNOACTIVE
  最小化一个窗口，同时不改变活动窗口
  SW_SHOWNA
  用当前的大小和位置显示一个窗口，不改变活动窗口
  SW_SHOWNOACTIVATE
  用最近的大小和位置显示一个窗口，同时不改变活动窗口
  SW_SHOWNORMAL
  与SW_RESTORE相同