Visual Basic

Public Class Animal
    Public Sub Bark()
        If TypeOf(Me) Is Dog Then
            Console.WriteLine("Bark!")
        Else
            Console.WriteLine("I can't bark!")
        End If
    End Sub
End Class
 
Public Class Dog : Inherits Animal
    
End Class

Public Class Animal
    Public Overridable Sub Bark()
        Console.WriteLine("I can't bark!")
    End Sub
End Class
 
Public Class Dog : Inherits Animal
    Public Overrides Sub Bark()
        Console.WriteLine("Bark!")
    End Sub
End Class

Public MustInherit Class Animal
    Public MustOverride Sub Bark()
End Class
 
Public Class Dog : Animal
    Public Overrides Sub Bark()
        Console.WriteLine("Bark!")
    End Sub
End Class

Public Type egStruct
    a As Integer
    b As Integer
End Type

Structure egStruct
    Public a As Integer
    Public b As Integer
End Structure

<br />
Function LaunchRemoteProgram(program As String, Optional user As String = "", Optional pass As String = "", Optional servername As String = ".") As Integer<br />
    Dim objLocator As WbemScripting.SWbemLocator<br />
    Dim objService As WbemScripting.SWbemServices<br />
    Dim objInstance As WbemScripting.SWbemObject<br />
    <br />
    Set objLocator = New WbemScripting.SWbemLocator<br />
    On Error Resume Next<br />
    If servername = "." Then<br />
        Set objService = objLocator.ConnectServer(".", "root\cimv2")<br />
    Else<br />
        Set objService = objLocator.ConnectServer(servername, "root\cimv2", user, pass)<br />
    End If<br />
<br />
    If Err.Number Then<br />
    '<br />
    LaunchRemoteProgram = Err.Number<br />
    Else<br />
        Set objInstance = objService.Get("Win32_Process")<br />
        objInstance.Security_.AuthenticationLevel = wbemAuthenticationLevelConnect<br />
        objInstance.Security_.ImpersonationLevel = wbemImpersonationLevelImpersonate<br />
        objInstance.Create program, Null, Null, LaunchRemoteProgram<br />
    End If<br />
End Function<br />