Public Class test1
Public Function test(ByVal a As Long, ByVal b As Long) As Long
Return a + b
End Function
End Class

Imports ClassLibrary1
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim localtest As New ClassLibrary1.test1
MsgBox(localtest.test(2, 5))
End Sub
End Class

0 replies

Leave a Reply

Want to join the discussion?
Feel free to contribute!

Leave a Reply

Your email address will not be published. Required fields are marked *