' Listing 4 - AboutBox.Frm
Sub OkButton_Click ()
    AboutBox.Hide
End Sub