Use a one line if
If obj is bitmap Then Dim bmp = obj
or use an in-line if (this is the if function)
Dim bmp = If(obj is bitmap, obj, Nothing)
Not quite pattern-matching per se, but is does the same thing.
Couldn't you do it this way in C#:
var bmp = obj is bitmap ? obj : nothing;