Add a procedure to a form

How do you add a procedure to a form.

????????

Just type it in your code.

Sub MySub()
End Sub

If you mean something else, you are being very vague.

If you wish the procedure return a result, then you need to do it this way either private or public

Code:

---

Private Function GetNum(Byval Seek As Long) As Long
    '//Do your process here
End Function

---

Code:

---

Public Function GetNum(Byval Seek As Long) As Long
    '//Do your process here
End Function

---

Cheers!