主题：系统启动后显示的画面，勾选下次不再显示怎么操作

甜老师，我是这样变通写的，虽然能实现功能，但感觉很土，能不能帮我改得更专业

Forms("窗口1").open()
Dim n As Integer
Dim r As WinForm.CheckBox = Forms("窗口1").Controls("CheckBox1")
If r.checked = True
n=2
 End If
n = GetConfigValue("Count",1) '假定保存试用次数的设置名称为Count
 If n >1 Then
    Forms("窗口1").Close()
 Else
     n = n + 1
     SaveConfigValue("Count",n)
End If