Visual Basic

Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnlogin.Click
        Dim myCommand As New MySqlCommand
        Dim myAdapter As New MySqlDataAdapter
        Dim myData As MySqlDataReader
        'txtEmail.Text.Replace("'", "\'") BoxPassword.Text.Replace("'", "\'")
        Dim SQL As String
        'Our MySQL Query
        Dim Email As String = TxtEmail.Text.Replace("'", "\'")
        Dim password = (getMD5Hash(BoxPassword.Password + ":"))
        SQL = "SELECT * FROM `jos_users` WHERE `username` = '" + Email + "' AND `password` = '" + Password + "'"

        Label1.Content = BoxPassword.Password

        myCommand.Connection = conn
        myCommand.CommandText = SQL
        myAdapter.SelectCommand = myCommand
        Try
            'Try to execute the query
            myData = myCommand.ExecuteReader()
            myData.Read()
            If myData.HasRows = 0 Then 'Checkes if a row with the email and password exist.
                'If no outputs this:
                notifyicon.ShowBalloonTip(3000, "Warning User", "The Email Address and Password that you entered dont match!", Avalon.Windows.Controls.NotifyBalloonIcon.Warning)
                Txtwrongpass.Content = "The Email Address and Password that you entered dont match!"
                myData.Close()
            Else
                'if yes outputs this:
                'notifyicon.ShowBalloonTip(3000, "Welcome " + myData.GetString("fname") + " " + myData.GetString("lname"), "You have sucessfully logged into RemindMe", Avalon.Windows.Controls.NotifyBalloonIcon.Warning)

                Dim loPage1 As New user
                loPage1.Background = Brushes.Gray
                Me.Content = loPage1
                myData.Close()

            End If
        Catch ex As MySqlException
            'If fail outputs MySQL Error
            MsgBox(ex.Message)
        End Try
    End Sub

Private Function BGW_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) As Boolean Handles BGW.DoWork
    Dim i As Integer = 0
    Dim copyResult As Boolean = False
    Dim args As copypathArgs = e.Argument

    For Each fl As String In args.FileArray
        i += 1
        e.Result = i
        copyResult = DoCopy(Path.Combine(args.sourceDir, fl), Path.Combine(args.targetDir, fl))
        BGW.ReportProgress(i / args.FileArray.Length * 100, fl)
    Next
End Function

Private Function DoCopy(ByVal source As String, ByVal target As String) As Boolean
    Dim overwrite As Boolean = True
    Try
       My.Computer.FileSystem.CopyFile(source, target, overwrite)
       Return True

       Catch ex As Exception
          Return False
      End Try
    End Function

'Me.Parent 'OR
'Me.ParentForm
'Me.Parent.Invoke(......)

Private Parent As System.Windows.Forms.Control

Public Sub New (ByVal Parent As System.Windows.Forms.Control)
        'Any  way to access Parent Form From a class without passing Parent as Argument?'<br>Me.Parent = Parent
End Sub