Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Me.Text = Control.MousePosition.X - RectangleToScreen( _
        ComboBox1.Bounds).Left
End Sub