Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As _
              System.EventArgs) Handles btnCalc.Click
  Dim MyVariable As Integer  ' Zasięg zmiennej MyVariable zaczyna się          
                             ' tutaj....
              ' ...ciągle w zasięgu...
  MyVariable = 10    ' ... ciągle w zasięgu...
              ' ... ciągle w zasięgu...
End Sub        ' Zasięg MyVariable kończy się w tym miejscu ...poza zasięgiem
