rvf 様　ありがとうございます。　参考にさせていただきました。

TextBoxが10個あり、0か負の値を入力時にTextBoxの背景が赤色になり、更に0か負の値が入力されたTextBoxにフォーカスが移動するように作りたいのですが、うまく行きません。
下記のコードのどこをいじればいいでしょうか？


  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For Each ctl As Control In Me.Controls
            If TypeOf ctl Is TextBox  Then
                AddHandler CType(ctl, TextBox).Click, AddressOf TextBox_textbox_leave
            End If
        Next

 Private Sub TextBox_textbox_leave(ByVal sender As System.Object, ByVal e As System.EventArgs)

        If Val(CType(sender,TextBox).Text) <= 0 Then　　　　　　　　　　　
    MsgBox("0か負の値がはいっています")

            TextBox1.BackColor = Color.Red　　　　　　　　　
        Else
            TextBox1.BackColor = Color.White　　　　　　　　　
        End If



    End Sub