阅读下面的程序：
PriVate Sub Form_C1ick()
Dim Check As Booleau，Counter As Integer
Check=True
Counter=5
Do
Do While Counter＜20
Counter=Counter+1
If Counter=10 Then
Check=FalSe
EXit Do
End If
Loop
Loop Until Check=FalSe
Print Counter
End Sub
程序运行后，单击窗体，输出结果为______。