// Requires IE >= v5.0

using System;
using System.Runtime.InteropServices;

public class RASDialup
{

[DllImport("wininet.dll",CharSet=CharSet.Auto)]
public extern static int InternetDial(

IntPtr hwnd,

[In]string lpszConnectoid,

uint dwFlags,

ref int lpdwConnection,

uint dwReserved

);

[DllImport("wininet.dll",CharSet=CharSet.Auto)]

public extern static int InternetHangUp(

int lpdwConnection,

uint dwReserved

);

public enum DialUpOptions

{

INTERNET_AUTODIAL_FORCE_ONLINE = 0x0001,

INTERNET_AUTODIAL_FORCE_UNATTENDED = 0x0002,

INTERNET_DIAL_FORCE_PROMPT =0x2000,

INTERNET_DIAL_SHOW_OFFLINE =0x4000,

INTERNET_DIAL_UNATTENDED =0x8000
}

int m_connectionnumber;

public int ConnectionNumber

{

    get { return m_connectionnumber; }

}

public int Connect(string m_ConnectionName)

{

int retVal = InternetDial(IntPtr.Zero, m_ConnectionName, (uint)
DialUpOptions.INTERNET_DIAL_UNATTENDED, _
        ref m_connectionnumber, 0);

return retVal;

}

public void Disconnect()

{

InternetHangUp(m_connectionnumber, 0);

}

}

Dim isLoad As Boolean = False
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load
        isLoad = True
    End Sub
    Private Sub TabControl1_SelectedIndexChanged(ByVal _
        sender As Object, ByVal e As System.EventArgs) _ 
        Handles TabControl1.SelectedIndexChanged
        If isLoad = True Then
            MsgBox("ok")
        End If
    End Sub

\\\By Ken Tucker
ListBox1.DrawMode = DrawMode.OwnerDrawFixed
Dim ff As FontFamily
For Each ff In FontFamily.Families
ListBox1.Items.Add(ff.Name)
Next
Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As
System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
Dim g As Graphics = e.Graphics
Dim s As String
Dim d As Date
Dim br As Brush = SystemBrushes.WindowText
Dim brBack As Brush
Dim rDraw As Rectangle
Dim bSelected As Boolean = CBool(e.State And DrawItemState.Selected)
rDraw = e.Bounds
rDraw.Inflate(-1, -1)
If bSelected Then
brBack = Brushes.LightBlue
g.FillRectangle(Brushes.LightBlue, rDraw)
g.DrawRectangle(Pens.Blue, rDraw)
Else
brBack = Brushes.White
g.FillRectangle(brBack, e.Bounds)
End If
br = Nothing
brBack = Nothing
rDraw = Nothing
///