タスクトレイに残ったアイコンを消すには？ (ID:101569)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 オショウさん、いろいろとありがとうございました。 下記のようにしたら出来るようになりました。 'マウスのポインター移動 Public Declare Function SetCursorPos Lib "user32" _ (ByVal x As Long, ByVal y As Long) As Long Private Sub Command1_Click() Dim a As Long Dim x As Long Dim y As Long Dim x1 As Long Dim y1 As Long Dim n As Long Dim T As Single Dim T1 As Single x1 = Screen.Width y1 = Screen.Height 'カーソルの位置をワクの隅に設定 x = x1 / Screen.TwipsPerPixelX y = (y1 - 10) / Screen.TwipsPerPixelY a = SetCursorPos(x, y) T1 = Timer Do 'タイマーを入れる(重要) T = Timer - T1 DoEvents Loop Until T > 0.5 For n = 1 To 30 'アニメーション化 x = (x1 - 100 * n) / Screen.TwipsPerPixelX y = y1 * 0.98 / Screen.TwipsPerPixelY a = SetCursorPos(x, y) T1 = Timer Do 'タイマーを入れる(重要) T = Timer - T1 DoEvents Loop Until T > 0.05 Next n End Sub