Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim BlockList as String
reDim BlockList(50)
dim IsFull as boolean = True
dim iList as integer
if not BlockList is nothing then
for iList = 0 to BlockList.Length - 1
if BlockList(iList) is nothing then
IsFull=False
Exit For
End If
next
Else
IsFull = False
end if
return IsFull