这样写代码
If e.Sender.Text <> Nothing AndAlso e.Sender.Contains(",") Then e.Sender.Text = e.Sender.Text.Replace(",","/")End If