Module Module1
Dim theUFsession As UFSession
Dim theSession As Session
Public Enum feed_unit
UF_PARAM_feed_none = 0
UF_PARAM_feed_per_minute = 1
UF_PARAM_feed_per_revolution = 2
End Enum
Public Structure Feedrate
Dim unit As feed_unit
Dim value As Double
Dim color As Integer
End Structure
sub main()
theSession = Session.GetSession()
theUFsession = UFSession.GetUFSession()
Dim Param As UFParam = theUFsession.Param
Dim intptr_1 As System.IntPtr
Dim Feedrate_Cut As Feedrate = New Feedrate
With Feedrate_Cut
.unit = feed_unit.UF_PARAM_feed_none
.color = 123
.value = 10
End With