ocr: E Projecti - Forml OX Form Load End Sub Private Sub Cormand4 Click() Set mthrest = Nothing End Sub Private Sub Cormand5 Click() Dim thTemp As New Thing thTemp.Name = Inputbox I "Enter a name for the temporary Thing", "lemporary Thing") If Checkl.Value == vbChecked Then chiemp.StuCkonmysell = True End If End Sub avtcm015a