Hola!, soy nuevo en el foro y necesito ayuda!, he estado tratando de crear algun codigo para poder eliminar una posicion de un programa que me han pedido en la escuela, el problema esta en que por más que busco no puedo hacerlo!  
Este programa almacena datos de dferentes personas (alumnos)  y los guarda en una posicion de memoria, necesito que cuando yo elimine a una persona los datos que se proporcionan tienen que desaparecer por completo, por ejemplo:

1.-Luis
2.-Eduardo
3.-Carlos
4.-Martín

Eliminando a la carlos:

1.-Luis
2.-Eduardo
4.-Martín

Creo que quedaria más claro si les muestro el codigo:

Option Compare Text
Public Class frmAlumnos
    Dim alumnos(4, 8) As String
    Dim i, t, pos As Byte
    Dim sexo As String
 
    Private Sub btnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEliminar.Click
 
        'QUIERO ESTE CODIGO POR FAVOoOoR!!!!!!
 
    End Sub
 
    Private Sub frmAlumnos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.DomainUpDown1.Items.Add("Computación e informatica")
        Me.DomainUpDown1.Items.Add("Secretariado ejecutivo")
        Me.DomainUpDown1.Items.Add("Contabilidad")
        Me.DomainUpDown1.Items.Add("Electricidad")
        Me.DomainUpDown1.Items.Add("Electronica")
        Me.DomainUpDown1.Items.Add("Construcción civil")
        Me.NumericUpDown1.Minimum = 0 : Me.NumericUpDown1.Maximum = 6
        Me.NumericUpDown1.ReadOnly = True
        HabilitaControles(False) : HabilitaBotones(True)
 
    End Sub
 
    Private Sub limpiar()
        Dim micontrol As Object
        For Each micontrol In Me.Controls
            If TypeOf micontrol Is TextBox Then micontrol.text = ""
            If TypeOf micontrol Is RadioButton Then micontrol.checked = False
            If TypeOf micontrol Is DomainUpDown Then _
            micontrol.text = "Seleccione una especialidad"
            If TypeOf micontrol Is NumericUpDown Then micontrol.Value = 1
        Next
    End Sub
    Private Sub HabilitaControles(ByVal Estado As Boolean)
        Dim micontrol As Object
        For Each micontrol In Me.Controls
            If TypeOf micontrol Is TextBox Then micontrol.enabled = Estado
            If TypeOf micontrol Is RadioButton Then micontrol.enabled = Estado
            If TypeOf micontrol Is DomainUpDown Then micontrol.enabled = Estado
            If TypeOf micontrol Is NumericUpDown Then micontrol.enabled = Estado
        Next
    End Sub
 
    Private Sub HabilitaBotones(ByVal sw As Boolean)
        btnNuevo.Enabled = sw
        btnGuardar.Enabled = Not sw
        btnEditar.Enabled = sw
        btnCancelar.Enabled = Not sw
        btnEliminar.Enabled = sw
        btnBuscar.Enabled = sw
        btnSalir.Enabled = sw
    End Sub
 
    Private Sub RbtnMasculino_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RbtnMasculino.CheckedChanged
        Select Case sender.name
            Case "rbtMasculino"
                sexo = "Masculino"
            Case Else
                sexo = "Femenino"
        End Select
    End Sub
 
    Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click
        If i = 5 Then
            MsgBox("ya no se puede agregar más alumnos...")
            btnPrimero.PerformClick()
        Else
            limpiar()
            txtCodigo.Text = Format(i + 1, "00000")
            HabilitaControles(True)
            HabilitaBotones(False)
        End If
    End Sub
 
    Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
        If txtApellidos.Text = "" Or txtNombres.Text = "" Then
            MsgBox("debe ingresar nombres y apellidos", MsgBoxStyle.Critical, "Error")
            Exit Sub
        End If
        alumnos(i, 0) = txtCodigo.Text
        alumnos(i, 1) = txtApellidos.Text
        alumnos(i, 2) = txtNombres.Text
        alumnos(i, 3) = txtDireccion.Text
        alumnos(i, 4) = sexo
        alumnos(i, 5) = txtTelefono.Text
        alumnos(i, 6) = DomainUpDown1.SelectedItem
        alumnos(i, 7) = NumericUpDown1.Value
        alumnos(i, 8) = txtEmail.Text
        t = i
        i += 1
        btnPrimero.PerformClick()
        HabilitaControles(False)
        HabilitaBotones(True)
    End Sub
 
    Private Sub btnEditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditar.Click
        Me.HabilitaControles(True)
        Me.txtApellidos.Focus()
        HabilitaBotones(False)
    End Sub
 
    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        HabilitaBotones(True)
        btnPrimero.PerformClick()
    End Sub
 
    Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click
        Dim codi As String
        Dim x As Integer
        codi = InputBox("Ingrese codigo del alumno a buscar")
        For x = 0 To i - 1
            If codi = alumnos(x, 0) Then
                pos = x
                mostrardatos()
                Exit Sub
            End If
        Next
        MsgBox("Código no existe", MsgBoxStyle.Critical, "Error")
 
    End Sub
 
    Private Sub mostrardatos()
        txtCodigo.Text = alumnos(pos, 0)
        txtApellidos.Text = alumnos(pos, 1)
        txtNombres.Text = alumnos(pos, 2)
        txtDireccion.Text = alumnos(pos, 3)
        If alumnos(pos, 4) = "masculino" Then
            RbtnMasculino.Checked = True
        Else
            RbtnFemenino.Checked = True
        End If
        txtTelefono.Text = alumnos(pos, 5)
        DomainUpDown1.SelectedItem = alumnos(pos, 6)
        NumericUpDown1.Value = alumnos(pos, 7)
        txtEmail.Text = alumnos(pos, 8)
    End Sub
 
    Private Sub btnPrimero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrimero.Click
        pos = 0
        mostrardatos()
    End Sub
 
    Private Sub btnUltimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUltimo.Click
        pos = t
        mostrardatos()
    End Sub
 
    Private Sub btnAnterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnterior.Click
        If pos > 0 Then
            pos = pos - 1
            mostrardatos()
        End If
    End Sub
 
    Private Sub btnSiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSiguiente.Click
        If pos < t Then
            pos = pos + 1
            mostrardatos()
        End If
    End Sub
 
    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
        Me.Close()
    End Sub
 
    Private Sub btnMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMenu.Click
        frmMain.Show()
        Me.Hide()
    End Sub
End Class

Pueden ver el programa aqui:
http://www.jlponce.co.cc/descargas/GUIA%20N3%20NET1%202009.pdf
1.4 CREACIÓN DEL FORMULARIO REGISTRO DE ALUMNOS (FRMALUMNOS.VB)