Private Declare Function ImportXYZ Lib "XYZ.dll" (ByVal szXyz As String, ByVal nLen As Long, ByVal nType As Long) As Long'ImportXYZ(char *szXyz,int length,int type) Private Sub Command1_Click() Dim s As String s = "1234567890123456" s = s & vbNullChar Text1.Text = ImportXYZ(ByVal s, 16, 1) End Sub
Private Sub Command1_Click()
Dim s As String
s = "1234567890123456"
s = s & vbNullChar
Text1.Text = ImportXYZ(ByVal s, 16, 1)
End Sub