PR
ににちゃん2世
ガッキーの事が好き過ぎて辛いおっさんのブログです。
ダメ元の遅い種まき
New!
ルウブさん
iOS 26.2 ー ライブ…
afuturaさん
電源タップのケーブ… ちぇきねさん
健康診断 ボンママンさん
タケノコmaxのパソコ… タケノコmaxさん
iOS 26.2 ー ライブ…
afuturaさん電源タップのケーブ… ちぇきねさん
健康診断 ボンママンさん
タケノコmaxのパソコ… タケノコmaxさん
Calendar
Comments
Freepage List
2016.04.10
カテゴリ： 新垣結衣
Sub 告白()
Do While Gakky.Answer <> Yes
If Gakky.Schedule = Busy Then
Me.Wait = Day(1)
ElseIf Gakky.Answer <> Yes Then
Me.Feeling = Length(Gakky.Answer) * -10
For i = 0 to Length(Gakky.Answer) * 10
Me.Feeling = Me.Feeling + 1
Me.Everything.UpDate = True
Me.Wait = Day(1)
Next i
Me.Hair.UpDate = True
Me.Beard = Nothing
ElseIf IsNumeric(Gakky.Answer) = True Then
MsgBox "まじめに回答してください。"
ElseIf Gakky.Answer = Null Then
Me.Hair = Nothing
Application.Quit
End If
Loop
End Sub
というわけで、がっきーさんおやすみなさい。
がっきーさんが腰痛になりませんように。。。
Do While Gakky.Answer <> Yes
If Gakky.Schedule = Busy Then
Me.Wait = Day(1)
ElseIf Gakky.Answer <> Yes Then
Me.Feeling = Length(Gakky.Answer) * -10
For i = 0 to Length(Gakky.Answer) * 10
Me.Feeling = Me.Feeling + 1
Me.Everything.UpDate = True
Me.Wait = Day(1)
Next i
Me.Hair.UpDate = True
Me.Beard = Nothing
ElseIf IsNumeric(Gakky.Answer) = True Then
MsgBox "まじめに回答してください。"
ElseIf Gakky.Answer = Null Then
Me.Hair = Nothing
Application.Quit
End If
Loop
End Sub
というわけで、がっきーさんおやすみなさい。
がっきーさんが腰痛になりませんように。。。
お気に入りの記事を「いいね！」で応援しよう
[新垣結衣] カテゴリの最新記事
-
ガッキーのアイコ～ラ 2017.02.06
-
50年前のがっきーさん 2017.01.22
-
【朗報！】ガッキー意外と小さかった！！… 2017.01.20
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
