[RESOLVED] How to optimize this?

[Lasering]

Hi i have this code:

Private Sub Done_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Done.Click
        ErrN.Dispose()
        ErrC.Dispose()
        Dim Err As Boolean = True
        If Titulo.Text.Length = 0 Then
            ErrN.SetError(Titulo, "Tem que inserir um nome!")
            Err = False
        End If
        If M1.Text.Length = 0 Then
            ErrN.SetError(M1, "Tem que inserir um nome!")
            Err = False
        End If
        If C1.SelectedIndex <> -1 And M1.Text.Length = 0 Then
            ErrN.SetError(M1, "Tem que inserir um nome!")
            Err = False
        End If
        If C2.SelectedIndex <> -1 And M2.Text.Length = 0 Then
            ErrN.SetError(M2, "Tem que inserir um nome!")
            Err = False
        End If
        If C3.SelectedIndex <> -1 And M3.Text.Length = 0 Then
            ErrN.SetError(M3, "Tem que inserir um nome!")
            Err = False
        End If
        
        If M1.Text.Length > 0 And C1.SelectedIndex = -1 Then
            ErrC.SetError(C1, "Tem que selecionar um modo!")
            Err = False
        End If
        If M2.Text.Length > 0 And C2.SelectedIndex = -1 Then
            ErrC.SetError(C2, "Tem que selecionar um modo!")
            Err = False
        End If
        If M3.Text.Length > 0 And C3.SelectedIndex = -1 Then
            ErrC.SetError(C3, "Tem que selecionar um modo!")
            Err = False
        End If
        
        If Err = True Then
            'If any error occurs then...
        End If
    End Sub

Can this be done in a simplier way like with less lines?