كيف اعرف قيمة متغير ما موجود داخل اجراء خاص

لسلام عليكم

كيف اعرف قيمة متغير ما موجود داخل اجراء خاص واستخدامه داخل اجراء آخر

مثال

Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
        Dim S As Boolean = True
        S = False

    End Sub

فأنا اريد معرفة قيمة S داخل الاجراء والتي هي FALSE ومن ثم استخددامها داخل اجراء آخر مثلا

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click

        If S = False Then
            FORM2.SHOW()

        End If