Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim total As Integer = 0

        Dim x As Boolean = CType(selecteditems, Boolean)
        If ListBox1.SelectedItems.Count > 0 Then
            For Each total In ListBox1.SelectedItems

                TextBox3.Text &= total & vbNewLine
            Next
        End If
    End Sub
End Class
例ではCType(sender, button)でsenderをbutton型にするとあったのでSelectedItemsを
Booleanにするつもりでしたのですがエラーがでちゃいました。どこを直せばいいでしょうか？