信息安全等级保护资质:请高手指点哦--有关做QQ皮肤的问题.下面这些有什么用啊?

Dim UserNum
Dim UserStatus
Dim Path
Dim strQQMailTip
Dim CurrentWidth
Dim ShowStatus

'注释

Sub Window_OnInit()
Window.GetScriptVersion "1.0"
UserStatus = "(离线)"
Path = "NewSkins\\周杰伦11月的肖邦\\"
ShowStatus = 1
UserNum = "0"
If 1 = ShowStatus Then
UserNum = UserNum + UserStatus
End If
strQQMailTip = ""
End Sub

Sub Window_OnSize(cx,cy)
Window.LockPaint()
CurrentWidth = cx

BackgroundRB.left = cx - 22
BackgroundRB.top = cy - 49
BackgroundLB.top = cy - 49
BackgroundRT.left = cx - 22
BackgroundL.height = cy - 95
BackgroundR.left = cx - 22
BackgroundR.height = cy - 95
BackgroundT.width = cx - 87
BackgroundB.top = cy - 49
BackgroundB.width = cx - 87
BackgroundC.width = cx - 87
BackgroundC.height = cy - 95

CloseButton.left = cx - 28

MinButton.left = cx - 62

ColorButton.left = cx - 45

MobileMsgButton.top = cy - 47

GameButton.top = cy - 44

TTButton.top = cy - 42

ChatRoomButton.top = cy - 43

MenuButton.top = cy - 25

MsgManagerButton.top = cy - 22

SearchButton.top = cy - 22

QQNumber.width = cx - 53

Bar1.width = cx - 46
Bar1.height = cy - 176

MailButton.label = strQQMailTip

Window.UnLockPaint()
End Sub

'上面的三个按钮
Sub MinButton_onClick()
Window.ExeCommand 1,2
End Sub

Sub CloseButton_onClick()
Window.ExeCommand 1,3
End Sub

Sub ColorButton_onClick()
Window.ExeCommand 4,7
End Sub

'六个Bar按钮
Sub Window_onClick(code, Name)
Window.LockPaint()
Window.DisableBar CStr(Name)
Window.ExeCommand code,CStr(Name)
Window.UnLockPaint()
End Sub

'顶部的按钮组
Sub StatusButton_onClick()