１．コードブロック
コードは、ランダムな値を表示するものです。

Private Sub MainForm_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click



　　Dim randomvalue As Integer

　　Dim upperbound As Integer = 100       'ランダム値の上限 

    Dim lowerbound As Integer = 0         'ランダム値の下限 



　　'▼ランダムな値をセットします 

　　Randomize()

　　randomvalue = CInt(Int((upperbound - lowerbound + 1) * Rnd() + lowerbound))



　　'▼発生した値を表示します 

　　MsgBox("Rnd 関数で発生した値は、" & randomvalue & "です。", , "発生した値")



End Sub

２．画像の挿入
イメージは、 Google のロゴです。



３．アイコン
すべてのバージョンのアイコンを表示します。
①縦一列
 VB6
 VB2002
 VB2003
 VB2005
 VB2008

②横一列