Dim IconName As String = "Sferacom_GestiMag.ChalkEdit.ico"
'al posto di Sferacom_GestiMag mettici il namespace della tua solution
'al posto di ChalkEdit.ico metti il nome della tua icona
Dim MyStream As System.IO.Stream
Try
    MyStream = Me.GetType().Assembly.GetManifestResourceStream(IconName)
    Me.ImageList1.Images.Add(New Icon(MyStream))
Catch ex As Exception
    MessageBox.Show(ex.Message)
End Try
Me.ToolBarButton1.ImageIndex = 0