一个小问题！！请大虾赐教

小弟想在图片框pic里用API函数DrawText绘制一个"&"字符，但是编译器都把它解释为连接符（也就是“＋”）或热键转义符（也就是下划线“_”）有什么办法可以解决啊？^_^（最好不要用图片调用，呵呵）
Option Explicit
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private R As RECT
Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Private Const DT_CENTER = &H1
Private Const DT_SINGLELINE = &H20
Private Sub Form_Load()
   With pic
    .AutoRedraw = True
    .ScaleMode = vbPixels
   End With
   SetRect R, 0, 0, pic.Width, pic.Height
   DrawText pic.hdc, "&", 1, R, DT_CENTER Or DT_SINGLELINE ''''''''''''''''此行语句无法打印出来
   DrawText pic.hdc, "v" + "&" + "a", 3, R, DT_CENTER 'Or DT_SINGLELINE ''''''''''''''''''此行语句被编译器解释为热键转义符（也就是下划线“_”）
   pic.Refresh
End Sub
问题是：如何在在图片框pic里绘制一个"&"字符望大虾赐教！！！！