如何用条形码打印（条形码控件加入窗体不显示）

     我新建一个窗体，在窗体上添加了条形码的控件，再用代码来实现打印条形码的效果，可是显示窗体是时却不能显示条形码控件！代码如下，窗体名是FORM1

Private Sub Form_Click()
 Form1.Height = BarCodeCtrl1.Height + 500
 Form1.Width = BarCodeCtrl1.Width + 200
 Form1.BackColor = &H80000009
 cbar = 13
 Text1.Visible = False
 Label1.Visible = False
 PrintForm     '打印窗体
End Sub
Private Sub Text1_Change()
 BarCodeCtrl1.Value = Text1.Text      '获得条形码的值
End Sub

谁能告诉我怎么回事啊！怎么才能传附件上去啊？？