Dim dpasstotal As New Dictionary(Of String, Integer)
改成
Public dpasstotal As New Dictionary(Of String, Integer)