Activeイベント

MASAと申します。

VB6Sp5(win2000)でソフトを開発しています。

以下のような記述をフォームに書いているのですが、
何故か、ソースで実行するとエラーはでないのに、
実行ファイルにすると起動時にActiveイベントが発生して、
エラーが発生します。

エラーが発生するのは,frmRAS.combo1.setfocusという
部分のようなのですが、実行ファイルとソース上での実行では
動作に違いがあるものなのでしょうか？

Private Sub Form_Activate()
        
    On Error GoTo ErrTrap
    
    ' 接続されているかどうか判断する
    If RasSample.Connection Then
    
'        Me.lblStatus.Caption = "接続されています。"
'        Me.Command1.Enabled = False     ' 接続ボタンのdisable
'        Me.Command2.Enabled = True      ' 切断ボタンのenable
'        Me.Combo1.Enabled = False
            
        frmRAS.lblStatus.Caption = "接続されています。"
        frmRAS.Command1.Enabled = False     ' 接続ボタンのdisable
        frmRAS.Command2.Enabled = True      ' 切断ボタンのenable
        frmRAS.Combo1.Enabled = False

        'Call m_theStatusIcon.Initialize(Me.hWnd, Me.Icon, "通信サーバーとダイヤルアップ接続中", True)
      
    Else
'        Me.lblStatus.Caption = "切断されています。"
'        Me.Command1.Enabled = True      ' 接続ボタンのenable
'        Me.Command2.Enabled = False     ' 切断ボタンのdisable
'        Me.Combo1.Enabled = True
'        Me.Combo1.SetFocus
        
        frmRAS.lblStatus.Caption = "切断されています。"
        frmRAS.Command1.Enabled = True      ' 接続ボタンのenable
        frmRAS.Command2.Enabled = False     ' 切断ボタンのdisable
        frmRAS.Combo1.Enabled = True
        frmRAS.Combo1.SetFocus
        
        
        'Call m_theStatusIcon.Initialize(Me.hWnd, Me.Icon, "通信サーバーとダイヤルアップ接続中", False)
      
    End If
    
    Exit Sub

ErrTrap:
  ' Err.Clear
   showErrMsg ("frmRAS : Form_Activate")
End Sub

Re: Activeイベント - Uz 2001/08/10 16:48:36