Mitsubishi Electric MELSEC-L Series - Page 371

369
APPENDICES
A
Appendix 9 Sample Program on the Connected Device Side Appendix 9.2 When Visual Basic
(R)
.NET is used
Private Sub Command4_Click(ByVal eventSender As System.Object, ByVal eventArgs
As System.EventArgs) Handles Command4.Click
'End the program.
End
End Sub
Private Sub Command5_Click(ByVal eventSender As System.Object, ByVal eventArgs
As System.EventArgs) Handles Command5.Click
'Check the connection state.
If State Then
MsgBox("Connected")
Else
MsgBox("Closed")
End If
End Sub
End Class