Declare Sub calltest Lib "test.dll" _
(ByVal vbx As Integer, ByVal vby As Single, ByRef vbresult As Single)
-------------------------------------------------------------------
Private Sub btnjisuan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnjisuan.Click
Dim vbx As Single
Dim vbresult As Single
Dim vby As Integer