ho creato questa sub che mi dovrebbe permettere di pulire tutte le caselle di testo, combobox e maskeditbox di un groupbox prescelto
il problema è che sulle caselle di testo ha effetto ma sulle maskeditbox non ha nessun effetto.... cosa sbaglio?
codice:
Sub Reset(ByVal group As GroupBox)
Dim oCtrl As Control
Dim Mask As AxMSMask.AxMaskEdBox
On Error Resume Next
For Each oCtrl In group.Controls
If TypeOf oCtrl Is TextBox Then
oCtrl.Text = ""
End If
Next
For Each Mask In group.Controls
Mask.CtlText = "__/__/____"
Next
End Sub
Grazie a tutti