Select Case problem

[sp76]

How can i achieve the below, using Select Case statement

Private Sub optInterestOnly_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optPandI.CheckedChanged, optInterestOnly.CheckedChanged

If optPandI.Checked = True Then
'Do Something
Else
If optInterestOnly.Checked = True Then
'Do Something
End If
End If

End Sub

 

[SqueakinSweep]

You cant use a select case in this instance, as the select case statement is designed to interrogate one variable. You could however shorten your code to perform the IF statements on one line

If optPandI.Checked Then Me.zdosomething1
If not optPandI.Checked and optinterestonly.checked Then Me.zdosomething2

Sweep
...if it works dont mess with it