こんにちは。
只今渡しはCommandボタンでタイマーイベントを呼び出そうとしているのですが、なかなくうまくいきません。
どちら様か下記にソースを書きますので、ヒント等をいただけないでしょうか？

Private Sub Command3_Click()
    Call Timer1_Timer(1000)
End Sub

Private Sub Timer1_Timer(interval As Integer)
    For i = 0 To 186
        lRet = ActQCPUQUSB1.ReadDeviceBlock(plcAddress(i), 1, senBit(i))
        If senBit(i) = 0 Then
            sen(i).BackColor = &HFFFFFF
        Else
            sen(i).BackColor = &HFF&
        End If
    Next i
End Sub

> 只今渡しはCommandボタンでタイマーイベントを呼び出そうとしているのですが、
> なかなくうまくいきません。

通常、イベントは呼び出すものではなく、「呼び出されるもの」です。


> Private Sub Timer1_Timer(interval As Integer)

このフォームには、Timer1という名前のTimerコントロールが貼られていますか？
もし貼られているなら、この Sub プロシージャの宣言を
　Indexプロパティが設定されていない場合：
　　　　Private Sub Timer1_Timer()
　Indexプロパティに 0 以上の整数が設定されている場合：
　　　　Private Sub Timer1_Timer(Index As Integer)
のように変更してください。

あとは、Timerコントロールの Interval プロパティを設定しておけば、
指定された時間間隔ごとに、Timerイベントが「呼び出され」ます。


もし、一次的にTimerイベントが呼び出されないようにしたい場合は、
Timerコントロールの Enabled プロパティを切り替えてやればOKです。

ありがとうございます。
私もいま気付いたのですかEnabledがあったのですね。
誠にありがとうございました。

> > 只今渡しはCommandボタンでタイマーイベントを呼び出そうとしているのですが、
> > なかなくうまくいきません。
>
> 通常、イベントは呼び出すものではなく、「呼び出されるもの」です。
>
>
> > Private Sub Timer1_Timer(interval As Integer)
>
> このフォームには、Timer1という名前のTimerコントロールが貼られていますか？
> もし貼られているなら、この Sub プロシージャの宣言を
> 　Indexプロパティが設定されていない場合：
> 　　　　Private Sub Timer1_Timer()
> 　Indexプロパティに 0 以上の整数が設定されている場合：
> 　　　　Private Sub Timer1_Timer(Index As Integer)
> のように変更してください。
>
> あとは、Timerコントロールの Interval プロパティを設定しておけば、
> 指定された時間間隔ごとに、Timerイベントが「呼び出され」ます。
>
>
> もし、一次的にTimerイベントが呼び出されないようにしたい場合は、
> Timerコントロールの Enabled プロパティを切り替えてやればOKです。