text in picturebox

[murugan_v]

Hi,
Now i am developing paint application using vb.i need to insert text in the picturebox(like MS Paint).Where i click the mouse.How to do?

Regards
Murugan

[MidgetsBro]

'picture1 autoredraw set to true and scalemode set to 3 - Pixel
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" _
(ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal _
lpString As String, ByVal nCount As Long) As Long
 
Dim myColor As Long
Dim myText As String
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
myColor = vbBlue
myText = InputBox("enter some text")
Picture1.ForeColor = myColor
Picture1.FontSize = 12
TextOut Picture1.hdc, X, Y, myText, Len(myText)
Picture1.Refresh
End Sub