Visual Basic

Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Data
Imports System.ComponentModel.Design    ' Important!!
Imports System.Windows.Forms            ' Important!!
 
Public Class MyCollectionEditor
    Inherits CollectionEditor
 
    Public Sub New(ByVal type As Type)
        MyBase.New(type)
    End Sub
.
.
.
    Private Class MyCollectionEditorForm
        Inherits CollectionForm
 
        Public Sub New(ByVal editor As CollectionEditor)
            MyBase.New(editor)
            .
            . ' setup other form properties...
            .
        End Sub
 
        Public Sub New(ByVal type As Type)
            MyBase.New(type)
        End Sub

        Protected Overrides Function CreateCollectionForm() As CollectionForm
            Return New MyCollectionEditorForm(Me)
        End Function
    End Class
End Class

mjackson11 wrote:

Unfortunately there is no VPN client, only a new IP address

Dave Kreskowiak wrote:

Who on earth does this anymore? Talk about the hard way...

Instead of writing an app and P/Invoking all kinds of crap, why not just write a little wrapper around the ROUTE command line utility? At least then, it's easily tested.

Declare Auto Function FlashWindow Lib "user32" (ByVal hWnd As IntPtr, ByVal bInvert As Boolean) As Boolean
.
.
.
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    If Me.WindowState = FormWindowState.Minimized Then
        Timer1.Interval = 1000
        Timer1.Start()
    Else
        Timer1.Stop()
    End If
End Sub
 
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Static prevState As Boolean
 
    ' GetUsersAttention can be a Boolean flag somewhere or
    ' a method that returns a Boolean value...
    If GetUsersAttention Then
        prevState = FlashWindow( Me.Handle, Not prevState )
    End If
End Sub