dotNETportal.cz

'výraz1   výraz2   And     AndAlso   Or      OrElse
'True     True     True    True      True    True*
'True     False    False   False     True    True*
'False    True     False   False*    True    True
'False    False    False   False*    False   False

'* výraz2 se nevyhodnocuje

Dim n = 4
If (n > 0) AndAlso (n Mod 2 = 0) Then
  'platí podmínka1 i podmínka2
End If

Dim n = 5
If (n > 0) AndAlso (n Mod 2 = 0) Then
  'platí podmínka1 a neplatí podmínka2
End If

Zkuste:

Dim podm1 As Boolean = True
Dim podm2 As Boolean = False

If podm1 And podm2 THen
    'udelej neco
End If

If podm1 And Not podm2 Then
    'udelej neco jineho
End If