Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim hyouji As String hyouji = ComboBox1.Text hyouji.show() End Sub