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