expression.Activate()
where expression is a variable that represents a Frame Object
expression.Activate()
Sub WaitMinimized() With ThisFrame .WindowState = FormWindowState_Minimized ThisScreen.WaitForIncomingData3 5000, True .WindowState = FormWindowState_Normal .Activate End With End Sub