Private Sub textBox_MouseDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs)
        Dim myButton As Button
        myButton = CType(sender, Button)
        myButton.BackColor = Color.Blue
End Sub