Use no dimension, object or msforms.textbox
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
samen TextBox1
End Sub
Private Sub samen(c01)
With c01
.Text = "Amazing"
.ForeColor = vbRed
.Font.Size = 16
End With
End Sub
or
Private Sub samen(c01 as object)
With c01
.Text = "Amazing"
.ForeColor = vbRed
.Font.Size = 16
End With
End Sub
or
Private Sub samen(c01 as Msforms.textbox)
With c01
.Text = "Amazing"
.ForeColor = vbRed
.Font.Size = 16
End With
End Sub
'Declarations can spoil more than you like'
Bookmarks