Private
Sub btnRunCommand_Click()
mvTERMINAL.SendQuery (txtCommand.text)
End Sub
Private Sub Form_Load()
mvTERMINAL.CopyToClipBoard =
True
End Sub
Private Sub mnuCapturedData_Click()
mvTERMINAL.Visible = False
rtbDataCapture.Text = mvTERMINAL.DataReceived
End Sub
Private Sub mnuTelnet_Click()
mvTERMINAL.Visible = True
End Sub
|