Private Sub btnSpara_Click(ByVal sender As Object, _
ByVal e As System.EventArgs)_
Handles btnSpara.Click
'--- Deklarera en variabel av typ Control
Dim ctl As Control

'--- Kontrollerar alla textboxar på aktuellt formulär
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" And ctl.Text = "" Then
MessageBox.Show("Du måste fylla i alla fält!", _
"Varning", _
MessageBoxButtons.OK, _
MessageBoxIcon.Warning)
Exit Sub
End If
Next
End Sub