Code box #2
Private Sub cmdOk_Click()
Unload Me
End Sub