Sub Window_OnInit()
End Sub

Sub Window_OnSize(cx,cy)
End Sub

'处理QQMusic程序发来的事件
Sub Window_OnNotify(code,var)
	If code = 2001 Then '调整Button_QQUinOne_Other的位置
		Button_QQUinOne_Other.top = Button_QQUinOne0.top + (Button_QQUinOne0.height+3)*(Var)
	End If
	If code = 2002 Then '需要修改当前窗口的高度
		If Var > 4 Then
			Window.height = 232 + (Button_QQUinOne0.height+3)*(Var-4)
		End If
	End If
	If code = 2003 Then '修改Text_1的文字为“请选择您要登陆的QQ帐号”
		If Var = 0 Then
			Text_1.value = "请选择您要登录的QQ帐号"
		End If
	End If
End Sub
