VB.NET

C#

Boolean
Byte
Char  
Short, Integer, Long
Single, Double
Decimal
Date

Object
String

Dim x As Integer
Console.WriteLine(x.GetType())    
Console.WriteLine(TypeName) 

Dim numDecimal As Single = 3.5
Dim numInt As Integer
numInt = CType(numDecimal, Integer)  
numInt = CInt(numDecimal) 
numInt = Int(numDecimal)   

bool
byte, sbyte
char  
short, ushort, int, uint, long, ulong
float, double
decimal
DateTime  

object
string

int x;
Console.WriteLine(x.GetType());    
Console.WriteLine(typeof(int));     

double numDecimal = 3.5;
int numInt = (int) numDecimal;  

Action a = Action.Stop;
if (a != Action.Start)
  Console.WriteLine(a + " is " + (int) a);    Console.WriteLine(Status.Pass);   

=  <  >  <=  >=  <>

+  -  *  /
Mod
\ 
^ 

=  +=  -=  *=  /=  \=  ^=  <<=  >>=  &=

And  AndAlso  Or  OrElse  Not  <<  >>

And  AndAlso  Or  OrElse  Not

Note: AndAlso and OrElse are for short-circuiting logical evaluations

&

==  <  >  <=  >=  !=

+  -  *  /
% 
/ 
Math.Pow(x, y)

=  +=  -=  *=  /=   %=  &=  |=  ^=  <<=  >>=  ++  --

&  |  ^   ~  <<  >>

&&  ||   !

Note: && and || perform short-circuit logical evaluations

+

greeting = IIf(age < 20, "What's up?", "Hello")

If language = "VB.NET" Then langType = "verbose"

If x <> 100 Then x *= 5 : y *= 2  

If whenYouHaveAReally < longLine And itNeedsToBeBrokenInto2 > Lines Then _
  UseTheUnderscore(charToBreakItUp)

If x > 5 Then
  x *= y
ElseIf x = 5 Then
  x += y
ElseIf x < 10 Then
  x -= y
Else
  x /= y
End If

Select Case color  
  Case "pink", "red"
    r += 1
  Case "blue"
    b += 1
  Case "green"
    g += 1
  Case Else
    other += 1
End Select

greeting = age < 20 ? "What's up?" : "Hello";

if (x != 100) {   
  x *= 5;
  y *= 2;
}

if (x > 5)
  x *= y;
else if (x == 5)
  x += y;
else if (x < 10)
  x -= y;
else
  x /= y;

Dim names As String() = {"Fred", "Sue", "Barney"}
For Each s As String In names
  Console.WriteLine
Next

float[,] twoD = new float[rows, cols];
twoD[2,0] = 4.5f; 

int[][] jagged = new int[3][] {
  new int[5], new int[2], new int[3] };
jagged[0][4] = 5;

 
Sub TestFunc(ByVal x As Integer, ByRef y As Integer, ByRef z As Integer)
  x += 1
  y += 1
  z = 5
End Sub

Dim a = 1, b = 1, c As Integer    
TestFunc(a, b, c)
Console.WriteLine("{0} {1} {2}", a, b, c)  

Function Sum(ByVal ParamArray nums As Integer()) As Integer
  Sum = 0 
  For Each i As Integer In nums
    Sum += i
  Next
End Function   Dim total As Integer = Sum(4, 3, 2, 1)  

int a = 1, b = 1, c;  // c doesn't need initializing
TestFunc(a, ref b, out c);
Console.WriteLine("{0} {1} {2}", a, b, c); 

int Sum(params int[] nums) {
  int sum = 0;
  foreach (int i in nums)
    sum += i;
  return sum;
}

int total = Sum(4, 3, 2, 1);   // returns 10

Try 
  y = 0
  x = 10 / y
Catch ex As Exception When y = 0
  Console.WriteLine(ex.Message)
Finally
  Beep()
End Try

Exception up = new Exception("Something is really wrong.");
throw up; 

try { 
  y = 0;
  x = 10 / y;
}
catch (Exception ex) {    
  Console.WriteLine(ex.Message);
}
finally {
 
}

Namespace Harding.Compsci.Graphics 
  ...
End Namespace

Namespace Harding
  Namespace Compsci
    Namespace Graphics 
      ...
    End Namespace
  End Namespace
End Namespace

Import Harding.Compsci.Graphics

namespace Harding.Compsci.Graphics {
  ...
}

namespace Harding {
  namespace Compsci {
    namespace Graphics {
      ...
    }
  }
}

using Harding.Compsci.Graphics;

Public
Private
Friend                   
Protected
Protected Friend
Shared

Class FootballGame
  Inherits Competition
  ...
End Class 

Interface IAlarmClock 
  ...
End Interface

Interface IAlarmClock
  Inherits IClock
  ...
End Interface

Class WristWatch 
  Implements IAlarmClock, ITimer 
   ...
End Class 

public
private
internal
protected
protected internal
static

class FootballGame : Competition {
  ...
}

interface IAlarmClock {
  ...
}

interface IAlarmClock : IClock {
  ...
}

class WristWatch : IAlarmClock, ITimer {
   ...
}

  Public Sub New ()
    _powerLevel = 0
  End Sub

  Public Sub New (ByVal powerLevel As Integer)
    Me._powerLevel = powerLevel
  End Sub

  Protected Overrides Sub Finalize () 
   
    MyBase.Finalize()
  End Sub
End Class

Dim hero2 As SuperHero = hero 
hero2.Name = "WormWoman"
Console.WriteLine(hero.Name)  

hero = Nothing   

If hero Is Nothing Then _
  hero = New SuperHero

Dim obj As Object = New SuperHero
If TypeOf obj Is SuperHero Then _
  Console.WriteLine("Is a SuperHero object.")

hero.Defend("Laura Jones");
SuperHero.Rest();  

SuperHero hero2 = hero;  
hero2.Name = "WormWoman";
Console.WriteLine(hero.Name);  

hero = null ;  

if (hero == null)
  hero = new SuperHero();

Object obj = new SuperHero(); 
if (obj is SuperHero)
  Console.WriteLine("Is a SuperHero object.");

  public StudentRecord(string name, float gpa) {
    this.name = name;
    this.gpa = gpa;
  }
}

foo.Size += 1

public int Size {
  get {
    return _size;
  }
  set {
    if (value < 0)
      _size = 0;
    else
      _size = value;
  }
}

foo.Size++;

Delegate Sub MsgArrivedEventHandler(ByVal message As String)

Event MsgArrivedEvent As MsgArrivedEventHandler

Event MsgArrivedEvent(ByVal message As String)

AddHandler MsgArrivedEvent, AddressOf My_MsgArrivedCallback
RaiseEvent MsgArrivedEvent("Test message")
RemoveHandler MsgArrivedEvent, AddressOf My_MsgArrivedCallback

Imports System.Windows.Forms

Dim WithEvents MyButton As Button  
MyButton = New Button

Private Sub MyButton_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyButton.Click
  MessageBox.Show(Me, "Button was clicked", "Info", _
    MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub

delegate void MsgArrivedEventHandler(string message);

event MsgArrivedEventHandler MsgArrivedEvent;

MsgArrivedEvent += new MsgArrivedEventHandler(My_MsgArrivedEventCallback);
MsgArrivedEvent("Test message");   
MsgArrivedEvent -= new MsgArrivedEventHandler(My_MsgArrivedEventCallback);

using System.Windows.Forms;

Button MyButton = new Button(); 
MyButton.Click += new System.EventHandler(MyButton_Click);

private void MyButton_Click(object sender, System.EventArgs e) {
  MessageBox.Show(this, "Button was clicked", "Info",
    MessageBoxButtons.OK, MessageBoxIcon.Information);
}

vbCrLf, vbCr, vbLf, vbNewLine
vbNullString
vbTab
vbBack
vbFormFeed
vbVerticalTab
""
Chr(65) 

\n, \r
\t
\\
\"

Convert.ToChar(65) 
(char) 65

Console.Write("What's your name? ");
string name = Console.ReadLine();
Console.Write("How old are you? ");
int age = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("{0} is {1} years old.", name, age);

Console.WriteLine(name + " is " + age + " years old.");

int c = Console.Read(); 
Console.WriteLine;   

Imports System.IO

Dim writer As StreamWriter = File.CreateText("c:\myfile.txt")
writer.WriteLine("Out to file.")
writer.Close()

Dim reader As StreamReader = File.OpenText("c:\myfile.txt")
Dim line As String = reader.ReadLine()
While Not line Is Nothing
  Console.WriteLine("line=" & line)
  line = reader.ReadLine()
End While
reader.Close()

Dim str As String = "Text data"
Dim num As Integer = 123
Dim binWriter As New BinaryWriter (File.OpenWrite("c:\myfile.dat")) 
binWriter.Write(str) 
binWriter.Write(num) 
binWriter.Close()

Dim binReader As New BinaryReader (File.OpenRead("c:\myfile.dat"))
str = binReader.ReadString()
num = binReader.ReadInt32()
binReader.Close()

using System.IO;

StreamWriter writer = File.CreateText("c:\\myfile.txt");
writer.WriteLine("Out to file.");
writer.Close();

StreamReader reader = File.OpenText("c:\\myfile.txt");
string line = reader.ReadLine();
while (line != null) {
  Console.WriteLine(line);
  line = reader.ReadLine();
}
reader.Close();

string str = "Text data";
int num = 123;
BinaryWriter binWriter = new BinaryWriter(File.OpenWrite("c:\\myfile.dat"));
binWriter.Write(str);
binWriter.Write(num);
binWriter.Close();

BinaryReader binReader = new BinaryReader(File.OpenRead("c:\\myfile.dat"));
str = binReader.ReadString();
num = binReader.ReadInt32();
binReader.Close();