Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With UserForm1.TextBox1
.SelStart = 0
.SelLength = Len(.Text)
.ForeColor = &H80000001
End With
End Sub
No comments:
Post a Comment