Public mz As New materialize

'====================================================================
' INTITIALIZE/ACTIVATE
'====================================================================
Private Sub UserForm_Initialize()
    mz.Form Me
    mz.TextBox Textbox1, "Email", mzEmail, "Must be email format"
    mz.TextBox TextBox2, "Pin", mzNumeric, "Must be numeric"
    mz.Button btnSubmit, mzredlighten1, mzRedAccent2, mzwhite
End Sub

Private Sub UserForm_Activate()
    
    mz.setFocus Textbox1.name
    
End Sub

'DEMONSTRATE VALIDATE
Private Sub btnSubmit_Click()

    If mz.Validate(True) = True Then
        MsgBox "Form is valid"
    End If
    
End Sub