code138a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 9 行

Dim TestString As String

Private Sub ShowTestString()
  Debug.Print TestString, "in Sub ShowTestString"    
End Sub

Public Sub Main()
  TestString ="This is a test string to show scope.