If cmdToggle.Caption = "锁定" Then HideVB cmdToggle.Caption = "取消锁定" cmdToggle.Picture = LoadPicture("1.ico") Label1.Visible = False Label2.Visible = True