Sub App_Start
Form1.Show
SetTransparent("label1","Form1")
SetTransparent("label2","Form1")
End Sub
Sub SetTransparent(LabelName, frmName)
Control(LabelName).visible = False
x=Control(LabelName).left
y=Control(LabelName).top
w=Control(LabelName).Width
h=Control(LabelName).Height
str=Control(LabelName).Text
fs=Control(LabelName).FontSize
fc=Control(LabelName).FontColor
Control(frmName).DrawString(str,fs,x,y,x+w,y+h,fc)
End Sub