ForegroundColor = IIf( MouseOver, _
			RGB(33, 150, 243), _
			RGB(0,0,29) )
	MousePos = Application.GetMouseX()

	If MouseOver Then
		If MousePos < 1920 Then
			OpenSubMenu ""
		Else
			OpenSubMenu "2"
		End If
	End If

End Sub

Function ToPixel( hm )
	ToPixel = IIf(IsNumeric( hm ), (hm * 96) / 2540, 0)
End Function

Sub OpenSubMenu( monitor )

	Set frmSubMenu = Application.GetFrame("MenuPrinc")
	Set scrSubMenu = Application.GetScreen("popups.pupMenuPrinc")
	frmSubMenu.MoveFrame ToPixel(X) , ToPixel(Y + Height + 50), ToPixel(Width) , scrSubMenu.Height & "hm"
	frmSubMenu.SetFrameOptions "", 256
	frmSubMenu.OpenScreen "popups.pupMenuPrinc", "Area" & monitor