Private Sub DisplayOnSoftMap()
SqlQuey = "Select * FROM SoftwareMap WHERE SoftwareMap.SMSID =myRndTrip.CurrentSwitch.SID & "'"
tmpSoftMapCol = tmpSoftMapCol.GetAllSoftwareMap(SqlQuey)
For Each tmpSoftMap In tmpSoftMapCol

DrowLabel(tmpSoftMap.XMap,

Private Sub BPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BPrint.Click
Dim frm As New FrmPrintReport 'reports
Dim cr As New CRepResponsable
cr.SetParameterValue(0, Val(Me.TBAccountNumber.Text))'integer
cr.SetParameterValue(1, Me.TBAccountNumber.Text)'string
cr.SetParameterValue(2, vbNull) 'integer
cr.SetParameterValue(3, vbNull) 'string

frm.CrystalReportViewer.ReportSource

Private Sub frmmap1_Load()

Public Function getavailableswitch(ByVal checkstr As String) As Int16
....
getavailableswitch = cmd.ExecuteScalar()
end function

Dim id As Integer
If id = getavailableswitch(checkStr) <> 0 Then
MsgBox(id)
End If

Dim ii As Integer 
If ii = getavailableswitch(checkStr) <> 0 Then
MsgBox(ii)
End If

Public function draw (color,location_X,location_Y int, shape)

Fillellispse(…)
Shape: rectangle