Visual Basic '15コンボボックスのテキストをlableに変換する

Question

基本的に、コンボボックスのすべてのテキストアイテムを別のフォームのラベルに送信して印刷することができます。

ここに私のコードスニペットがあります。

 ' Shows the yacht types in a new called frmYachtTypeSummary which then can be printed 
    frmYachtTypeSummary.lblYachtTypeSummary.Text = cboYachtType.Text.ToString 
    frmYachtTypeSummary.ShowDialog() 

私がここにあるものを使用するとき、コンボボックスでオブジェクトを選択すると、目的のフォームに印刷されます。私がしたいことは、コンボボックス全体をフォームに印刷させることです。

Answer 1

Dim allItems as String, item as Object 
For Each item In cboYachtType.Items 
    allItems = allItems & item.toString() & vbCrLf 
Next 
frmYachtTypeSummary.lblYachtTypeSummary.Text = allItems 

p .:この回答はVBA回答として開始されましたが、OPにはタグエラーがあるようでした。