Public Class Form2 Private Sub PrivateSub() Text = "PrivateSub" End Sub Public Sub PublicSub() Text = "PublicSub" End Sub End Class ''''''''''''''''''''''''''''''' Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Form2.PublicSub() '可以访问共有部分 '不能访问私有部分 Form2.PrivateSub() Form2.Show() End Sub End Class
Private Sub PrivateSub()
Text = "PrivateSub"
End Sub
Public Sub PublicSub()
Text = "PublicSub"
End Sub
End Class
'''''''''''''''''''''''''''''''
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form2.PublicSub() '可以访问共有部分
'不能访问私有部分 Form2.PrivateSub()
Form2.Show()
End Sub
End Class