Dim i As Long
If i=1 then
Label1="中森明菜のぱんてぃ"
ElseIf i=2 then
Label1="坂井泉水のぱんてぃ"
ElseIf i=3 then
Label1="柏原芳恵の空港押収物"
ElseIf i=4 then
Label1="榊原郁恵のぱんてぃ"
ElseIf i=5 then
Label1="柏原芳恵と榊原郁恵のちがいがわからない"
ElseIf i=6 then
Label1="河合奈保子のビキニ"
ElseIf i=7 then
Label1="森口博子のぱんてぃ & VbCrLf & 大当たり & VbCrLf & 確変突入"
End if