Visual Basic

Private Sub frmManager_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     'TODO: This line of code loads data into the 'UserDataSet2.Staffapplication' table. You can move, or remove it, as needed.
     Me.StaffapplicationTableAdapter.Fill(Me.UserDataSet2.Staffapplication)

     txtRecordno.DataBindings.Add("Text", UserDataSet2, "Staffapplication.Srecordno")
     txtUsername.DataBindings.Add("Text", UserDataSet2, "Staffapplication.Sname")
     txtPassword.DataBindings.Add("Text", UserDataSet2, "Staffapplication.Spassword")
     txtHobby.DataBindings.Add("Text", UserDataSet2, "Staffapplication.Shobby")

 End Sub

   Private Sub frmManager_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       'TODO: This line of code loads data into the 'UserDataSet2.Staffapplication' table. You can move, or remove it, as needed.
       Me.StaffapplicationTableAdapter.Fill(Me.UserDataSet2.Staffapplication)

       txtRecordno.DataBindings.Add("Text", UserDataSet2, "Staffapplication.Srecordno")
       txtUsername.DataBindings.Add("Text", UserDataSet2, "Staffapplication.Sname")
       txtPassword.DataBindings.Add("Text", UserDataSet2, "Staffapplication.Spassword")
       txtHobby.DataBindings.Add("Text", UserDataSet2, "Staffapplication.Shobby")

   End Sub

______________________________________________________________


Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click


        Dim intresult As Integer

        Try
            intresult = MessageBox.Show("Confirm Delete?", "Delete", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If intresult = Windows.Forms.DialogResult.Yes Then
                Me.StaffapplicationBindingSource.RemoveCurrent()
                Me.StaffapplicationTableAdapter.Update(Me.UserDataSet2.Staffapplication)

            End If
        Catch ex As Exception
        End Try

Structure Translate
    Dim English As String
    Dim French As String
    Dim German As String
End Structure

Dim TWord(16) As Translate

fs = New FileStream("TranslateC.txt", FileMode.Open, FileAccess.Read)
sr = New StreamReader(fs)

count = 0
Do While sr.Peek() >= 0

    TWord(count).English = sr.ReadLine()
    TWord(count).French = sr.ReadLine()
    TWord(count).German = sr.ReadLine()
    count = count + 1
Loop
sr.Close()

Imports System.IO

Public Class Form1

    Dim TranslateWords(15)() As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim fs As FileStream
        Dim sr As StreamReader
        Dim count As Integer

        fs = New FileStream("TranslateC.txt", FileMode.Open, FileAccess.Read)
        sr = New StreamReader(fs)

        count = 0
        Do While sr.Peek() >= 0
            Dim read = sr.ReadLine()

            If read <> Nothing Then
            Dim words As String() = read.Split(",")
            TranslateWords(count) = New String() {words(0), words(1), words(2)}
            End If

            count = count + 1
        Loop
        sr.Close()
    End Sub

    Private Sub SortArray()

    End Sub

    Private Sub btnTranslate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTranslate.Click
        Dim sentence As String = txtEnglish.Text
        Dim splitSentence As String() = sentence.Split(New Char() {" "c})
        Dim count As Integer

        txtTranslated.Text = ""

        If radioFrench.Checked Then

            For Each word As String In splitSentence
                Dim translated As Boolean

                translated = False
                For count = 0 To 15
                    If TranslateWords(count)(0).ToLower() = word.ToLower() Then
                        txtTranslated.Text += TranslateWords(count)(1) + " "
                        translated = True
                    End If
                Next

                If translated = False Then
                    txtTranslated.Text += word + " "
                End If

            Next

        ElseIf radioGerman.Checked Then

            For Each word As String In splitSentence
                Dim translated As Boolean

                translated = False
                For count = 0 To 15
                    If TranslateWords(count)(0).ToLower() = word.ToLower() Then
                        txtTranslated.Text += TranslateWords(count)(2) + " "
                        translated = True
                    End If
                Next

                If translated = False Then
                    txtTranslated.Text += word + " "
                End If

            Next

        Else
            MsgBox("You must select French or German before trying to translate", MsgBoxStyle.Information)
        End If

    End Sub
End Class

Private Sub ListBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
   If e.Data.GetDataPresent(DataFormats.FileDrop) Then
      e.Effect = DragDropEffects.Copy
   Else
      e.Effect = DragDropEffects.None
   End If
End Sub

Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
   Stop 'This is called
   Dim s$ = e.Data.GetData(DataFormats.FileDrop, True) 'Why does this exit the sub?
   Stop 'This not
   '...
End Sub