Public Sub ButtonClick(ByVal objDialog As AsDialog, _
                       ByVal BtnName As String, _
                       ByVal Top As String, _
                       ByVal Left As String, _
                       ByRef Reakcia As Long)
    ' statements
End Sub