Specifications

5 - 31
'Execute the random write
lRet = ActEasyIF1.WriteDeviceRandom(szDeviceList, lSize, lData(0))
If lRet = 0 Then
txtStatus.Text = "The value was written normally. " 'Message at normal
Else
txtStatus.Text = _
"Error occurrence (Error code: " + Hex$(lRet) + ")" 'Display the error code at error
End If
End Sub
Private Sub cmdEnd_Click()
End 'Program end
End Sub
Private Sub lblON_OFF_DblClick(Index As Integer)
'Reverse
and with a double-click
If lblON_OFF(Index).Caption = "
" Then
lblON_OFF(Index).Caption = "
"
Else
lblON_OFF(Index).Caption = "
"
End If
End Sub