|
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim O As New DEMO 'THIS IS CONSTRUCTOR O.TEST() End Sub Class DEMO Sub New() 'THIS IS CONSTRUCTOR MsgBox("HELLO ....CONSTRUCTER OF DEMO") End Sub Sub TEST() 'THIS IS NORMAL METHOD MsgBox("TEST FUNTION OF DEMO CLASS") End Sub End Class End Class |