programming the VBE for a new event procedure
? "msgbox""You done it"",vbOKOnly"
msgbox"You done it",vbOKOnly
do you just need some spaces?
--
Regards,
Tom Ogilvy
"mark kubicki" wrote in message
...
i'm trying to add code to give function to a newly created command button
on
the form "frmTimeClock"
but, am not quite getting it right... (?)
the error occurs at line 7 (57017, event handler is invalid)
----------------------------------------------
1 Private Sub CommandButton1_Click()
2 Dim StartLineNum As Long
3 Dim mycmd As MSForms.CommandButton
4 Set mycmd = frmTimeClock.Controls.Add("forms.commandbutton.1")
5 mycmd.Caption = mycmd.Name
6 With ActiveWorkbook.VBProject.VBComponents("frmTimeCloc k").CodeModule
7 StartLineNum = .CreateEventProc("click", mycmd.Name) + 1
8 .InsertLines StartLineNum, _
9 "msgbox""You done it"",vbOKOnly"
10 End With
11 End Sub
------------------------------------------------
thanks (as always) in advance
mark
|